program bai1;

var m,n,i:Longint;

begin

wriute('M= ');readln(m);

repeat

write('N= ');readln(n);

until n>=m;

s:=0;

for i:=m to n do

if (i mod 3=0) and (i mod 5=0) then s:=s+i;

write('S= ',s);

readln

end.

Bài 1

Program bai1;

Uses crt;

Var m,n,i,s:longint;

Begin

Clrscr;

Write ('nhap m:'); readln (m);

Write ('nhap n:'); readln (n);

While n <m do

Begin

Write ('nhap lai n:');

Readln (n);

End;

S:=0;

For i:=m to n do

If (i mod 3=0) or (i mod 5=0) then s:=s+i;

Write (s);

Readln;

End.

Cú pháp:

While < điều kiện > do < câu lệnh >;

Trong đó:

- Điều kiện thường là một phép so sánh

- Câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.

Câu lệnh lặp này được thực hiện như sau: (Hoạt động)

(1) Kiểm tra điều kiện:

(2) Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và chuyển sang câu lệnh tiếp theo trong chương trình. Nếu điều kiện ĐÚNG, thực hiện câu lệnh và quay lại bước (1 )

Cú pháp: while <điều kiện> do <câu lệnh>

Cách hoạt động: điều kiện trong câu lệnh thường là một phép so sánh. Nếu điều kiện được thoả mãn thì sẽ thực hiện câu lệnh. Ngược lại, vòng lặp sẽ kết thúc.

var s:int64;tb:real;n,i:int64;
function nt(n:int64):boolean;
var i:longint;
begin
if n<2 then exit(false) else
if n<4 then exit(true);
if (n mod 2=0) or (n mod 3=0) then exit(false);
for i:=1 to (trunc(sqrt(n))+1) div 6 do
if (n mod (6*i+1)=0) or(n mod (6*i-1)=0) then exit(false);
exit(true):
end;
begin
repeat
read(n);
if n mod 2=0 then s:=s+n else begin tb:=tb+n;inc(i); end;
until nt(n);
writeln(s);
write(tb/i:0:2);
readln;
end.

program contrau;

uses crt;

var i,j,k:byte;

begin

clrscr;

for i:=1 to 20 do

for j:=1 to 33 do

begin

k:=100-i-j;

if 5*i+3*j+k/3 =100 then

writeln('trau dung',i,' trau nam',j,' trau gia',k);

end;

readln

end.

for i in range(1,21):
    for j in range(1,34):
        k = 100-i-j
        if 5*i+3*j+k/3==100:
            print("Trau dung:",i,"| Trau nam:",j,"| Trau gia:",k)

program bai_giai;
uses crt;
var tho,ga:integer;
begin
    clrscr;
    for tho:=0 to 43 do
        begin
            ga:=43-tho;
            if ga*2+tho*4=100 then writeln(ga,' con ga va ',tho,' con tho');
        end;
    readln;
end.

Program bt;

Uses Crt;

Var a, P,S : real;

Begin

Clrscr;

write('nhap canh hinh vuong');

readln(a);

P:=a*4;

S:=a*a;

writeln(' chu vi hinh vuong',P);

writeln('dien tich hinh vuong',S);

Readln;

End.

Huế chs lq