Var a,n: integer; begin n:=1; readln(a); for var i:=2 to a-1 do begin if (a mod i = 0) then begin n:=0; break; end; end; if (n = 1) then write('Число ',a,' является простым') else write('Число ',a,' является составным') end.
var a,s: integer; begin readln(a); while a>0 do begin readln(a); if (a mod 3 = 0) and (a mod 2 = 0) then s:=s+a; end; if (s <>0) then writeln('Сумма четных чисел,делящихся на 3 :',s) else writeln('Не найдено'); end.
var s:integer; var a: array [1..20] of integer; begin for var n:=1 to 20 do begin readln(a[n]); if (a[n]>=180)then s:=s+1; end; write(s); end.
Answers & Comments
Verified answer
Var a,n: integer;begin
n:=1;
readln(a);
for var i:=2 to a-1 do
begin
if (a mod i = 0) then
begin
n:=0;
break;
end;
end;
if (n = 1) then
write('Число ',a,' является простым')
else
write('Число ',a,' является составным')
end.
var a,s: integer;
begin
readln(a);
while a>0 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
s:=s+a;
end;
if (s <>0) then
writeln('Сумма четных чисел,делящихся на 3 :',s)
else
writeln('Не найдено');
end.
var s:integer;
var a: array [1..20] of integer;
begin
for var n:=1 to 20 do
begin
readln(a[n]);
if (a[n]>=180)then
s:=s+1;
end;
write(s);
end.