LT
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
NL
Nguyễn Lê Phước Thịnh
CTVHS
29 tháng 11 2019
uses crt;
var a,b,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (a>5) and (b>5) then
begin
t:=a+b;
writeln('tong la: ',t);
end
else writeln('khong duoc tinh');
readln;
end.
29 tháng 11 2019
uses crt;
Var x,y,z: Integer;
begin
Write ('Nhap x: '); readln (x);
Write ('Nhap y: '); readln (y);
z:=x + y;
If (x > 5) and (y > 5) then write ('Tong hai so ',x,' va ',y,' la: ',z);
If (x <= 5) or (y <= 5) then write ('Vui long nhap hai so deu lon hon 5');
readln;
end.
ML
4 tháng 6 2020
Câu 2:
Program HOC24;
var a: array[1..20] of integer;
t,i: integer;
begin
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to 20 do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la :',t);
readln
end.
ML
4 tháng 6 2020
Câu 1:
Program HOC24;
var a: array[1..10] of integer;
min,max,i: integer;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
min:=32000; max:=0;
for i:=1 to 10 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la :',max);
write('So nho nhat la : ',min);
readln
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
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
HN
28 tháng 2 2017
Chào bạn!
Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.
Còn nếu là thực hành thì bạn tự thực hành nhé.
Chúc bạn học tốt.
24 tháng 8 2019
5 bước ra lệnh cho robot nhặt rác:
1. Tiến hai bước
2.Quay trái, tiến một bước
3.Nhặt rác
4.Quay phải, tiến ba bước
5.Quay trái, tiến hai bước
6. Bỏ rác vào thùng
ML
23 tháng 8 2019
Bạn tham khảo trong bài giảng của hoc24 nhé : Bài 1. Máy tính và chương trình trong máy tính | Học trực tuyến
24 tháng 8 2019
5 bước ra lệnh cho robot nhặt rác:
1. Tiến hai bước
2.Quay trái, tiến một bước
3.Nhặt rác
4.Quay phải, tiến ba bước
5.Quay trái, tiến hai bước
6. Bỏ rác vào thùng
NL
Nguyễn Lê Phước Thịnh
CTVHS
9 tháng 5 2021
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
9 tháng 5 2021
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
PB
0
11 tháng 2 2017
so lan lap la 10
=> j+2(10+2+2+2+2+2+2+2+2+2+2)=20
tick di
mở chat gpt đi