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.
program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.
mk mới làm tổng thui nghen
Program Tong_hieu_tich_thuong;
Uses crt;
Var a:integer;
b:integer;
Begin
clrscr;
write(‘nhap so thu 1 :’);
readln(a);
writeln(‘ban vua nhap so: ‘,a);
write(‘nhap so thu hai :’);
readln(b);
writeln(‘ban vua nhap so thu 2: ‘,b);
Writeln(a,’+’,b,’=’,a+b);
Writeln(a,’-‘,b,’=’,a-b);
Writeln(a,’*’,b,’=’,a*b);
if b<>0 then
Writeln(a,’/’,b,’=’,a/b);
readln;
End.
Hàm SUM, MAX, MIN là hàm tính tổng, giá trị lớn nhất, giả trị nhỏ nhất của một dãy các số. Nên SUM(1,2)+MAX(3,4)+MIN(5,6)= 3 + 4 + 5 =12
Đáp án: B
uses crt;
var dai,rong:real;
begin
clrscr;
write('Nhap chieu dai:'); readln(dai);
write('Nhap chieu rong:'); readln(rong);
writeln('Chu vi la: ',(dai+rong)*2:4:2);
writeln('Dien tich la: ',dai*rong:4:2);
readln;
end.