Question

[Thảo Nguyễn]

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

Answer 1

[💌Học sinh chăm ngoan🐋💦]

?? là sao

Answer 2

[Nguyễn Lê Phước Thịnh]

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.