Bài 1: Cho chương trình sau: Hãy nêu ý nghĩa từng câu lệnh trong chương trình và cho biết kết quả sau khi chạy chương trình này là gì? Hãy đặt đề bài cho bài toán này.
Program ga_cho;
Uses crt;
Var g,c: byte;
Begin
Clrscr;
For g:=1 to 36 do
For c:= 1 to 36-g do
If (g+c= 36 ) and (2*g+4*c=100) then writeln( ‘ so ga la: ‘, g,’ so cho la’,c);
Readln;
End.
Bài 2: Hãy viết chương trình tính tổng các số nguyên tố trong khoảng từ 1 đến 50
a, Xác định bài toán
b, Mô tả thuật toán
c, Viết chương trình
Giúp mik vs mik cần bài gấp trc tối nay
Bài 2:
a: Input: 50 số từ 1 đến 50
Output: Tổng các số nguyên tố
c: Viết chương trình:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=2 to 50 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
