NT
1
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
13 tháng 12 2019
uses crt;
begin
clrscr;
writeln('rat vui khi duoc lam quen voi cac ban');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8');
writeln('chuong trinh Turbo Pascal rat la hay');
readln;
end.
GN
21 tháng 12 2017
program bai3;
uses crt;
begin
clrscr;
writeln('rat vui duoc lam quen voi cac ban!');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8!');
writeln('chuong trinh turbo pascal rat la hay!');
readln;
end.
GN
21 tháng 12 2017
program bai1;
uses crt;
begin
clrscr;
writeln('=75 mod 6');
writeln('=99 div 5');
readln;
end.
21 tháng 9 2020
program bai1;
uses crt;
Begin
writeln ('Chao ban');
writeln('Rat vui duoc lam quen voi ban');
writeln('Rat han hanh');
Readln
End.
5 tháng 12 2016
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
14 tháng 12 2019
Câu 1: B
Câu 2: D
Câu 3: D
Câu 4: Thông báo lỗi
Câu 5: C
Câu 6: B
Câu 7: C
Câu 8: D
Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn
Câu 10: B
Câu 11: B
Câu 12: D
Câu 13: C
Câu 14: A
Câu 15: C
Câu 16:
-Cấu trúc rẽ nhánh có 2 dạng.png)
Câu 17
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
BA
14 tháng 12 2019
C1: A
C2: D
C3: D
C4: báo lỗi
C5: C
C6: B
C7: C
C8: D
C9: Hoán đổi gt biến a và b
C10: B
C11: B
C12: D
C13: C
C14: A
C15: C
C16
- Cấu trúc rẽ nhánh có 2 loại
C17
24 tháng 10 2016
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
25 tháng 11 2017
Program bai1;
uses crt;
var a,b,s: integer;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
s:=a+b;
writeln('- tong cua hai so a va b =',s);
if s mod 2 = 0 then writeln('tong la so chan ')
else writeln('- tong la so le ');
readln;
end.
Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!