HT
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
4 tháng 1 2023
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b);
readln;
end.
23 tháng 12 2021
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
3 tháng 2 2019
1.
uses crt;
var i,t:longint;
begin
clrscr;
t:=0;
for i:=2 to 100 do
if i mod 2=0 then t:=t+i;
write('Tong S= ',t);
readln
end.
3 tháng 2 2019
2.
uses crt;
var i,t:longint;
begin
clrscr;
t:=0;
for i:=2 to 100 do
if i mod 2=0 then t:=t+1/i;
write('Tong S= ',t);
readln
end.
ML
13 tháng 3 2021
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
13 tháng 3 2021
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
28 tháng 12 2020
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
10 tháng 10 2016
Để mình bày cho nhé :
\(x^3=\) x * x * x
\(x^n\) = x * x * x * .....
|_____|
n x
Đề thiếu bạn bổ sung nhé.