Question

Mọi người ơi giúp minh trả lời câu hỏi học kì này vơi mai minh thi rùi

1 câu lệnh If ..then nào dưới dây viết đúng đáp án

A.if a>b then a:=b;

B if-then a>b,a:=b;

C if-then (a>b,a:=b)

D if(a>b)then a:=b

2.em hãy viết thuật toán tính tổng các số chẵn của 20 số tự nhiên đầu tiên

3 viết chương trình tính điện tích chu của hcn với đồ dài các cạnh đc nhập từ bàn phím

Answer 1

1,A

2,

program tong20so;

uses crt;

var i,S:longint;

begin

S:=2;

for i:=1 to 40 do

begin

if i mod 2 = 0 then S:=S+i;

end;

write('Tong 20 so chan dau tien la:',S);

readln

end.

3,

program hinhchunhat;

uses crt;

var a,b:integer;

begin

write('Nhap chieu dai hinh chu nhat:');Readln(a);

write('Nhap chieu rong hinh chu nhat:');Readln(b);

write('Chu vi hinh chu nhat la',(a+b)*2);

write('Dien tich hinh chu nhat la',a*b);

readln

end.