giúp em viết chương trình ngày với ạ: nhập M, n , in so sánh M>n? M<n? M= n?
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.
uses crt;
var i:integer;
begin
clrscr;
i:=10;
while i>=5 do
begin
write(i:4);
i:=i-1;
end;
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
writeln(a[n]);
readln;
end.
Câu 1:
s=0; i=0
Vòng lặp thứ 1: i<3 -> đúng -> i=i+1=0+1=1; s=s+i*i=0+1*1=1
Vòng lặp thứ 2: i<3 -> đúng -> i=i+1=1+1=2; s=s+i*i=1+2*2=5
Vòng lặp thứ 3: i<3 -> đúng -> i=i+1=2+1=3; s=s+i*i=5+3*3=14
Vòng lặp thứ 4: i<3 -> sai -> không thực hiện vòng lặp -> kết thúc vòng lặp
Vậy kết quả S in ra màn hình là 14
Bài 2:
program bt;
uses crt;
var i, n, s : integer;
a : array[1..100] of integer;
begin
clrscr;
write('Nhap so so nguyen: '); readln(n);
for i:=1 to n do begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
s := 0;
write('Day so vua nhap la: ');
for i:=1 to n do begin
write(a[i],', ');
s := s + a[i];
end;
writeln;
writeln('Tong cac so trong day so la ',s);
writeln('Trung binh cong cac so trong day so la ',s/n:0:2);
readln
end.
Bài 3:
program bt;
uses crt;
var i, n, s, d : integer;
a : array[1..100] of integer;
begin
clrscr;
write('Nhap so so nguyen: '); readln(n);
for i:=1 to n do begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
s := 0; d := 0;
for i:=1 to n do if (a[i] > 10) and (a[i] < 20) then begin
d := d + 1;
s := s + a[i];
end;
writeln('Co ',d,' so nho hon 10 va lon hon 20');
write('Tong cac so lon hon 10 va be hon 20 la ',s);
readln
end.
uses crt;
var m,n:integer;
begin
clrscr;
readln(m,n);
if m<n then write('m nho hon n')
else if m>n then write('m lon hon n')
else write('m bang n');
readln;
end.