HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
hê
ai biết
bài 5:
uses crt;
var s,n:integer
i:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*2;
writeln(s);
readln
end.
bài 1:
var n,s:integer;
s:=s+(1*i);
bài 2:
var a,n:real;
A:=1;
n:=2; //readln(n); thay lệnh này nếu bạn muốn thay đổi giá trị của
repeat
A:=a*n;
inc(n);
until A>100;
writeln(A*n);
readln;
Ta có 2 TH:
TH1: 5 không thể = 7 vì 7>5 (theo quy luật)
TH2: 5 = 7 vì 5 và 7 nhân với 1 số bất kì
VD : 5 x 0; 7 x 0 cả hai đều bằng 0 nên 7 = 5
Vậy => đpcm( còn lại tự làm)