Надо перевести программу с Паскаля на Кумир, срочно помогите пожалуйста !!!!
var n,i,a,k: integer;
begin
readln(n);
k := 0;
for i := 1 to n do begin
readln(a);
if (a mod 4 = 0) and (a mod 7 <> 0) then
k:=k+1;
end;
writeln(k)
end.
var n,i,a,k: integer;
begin
readln(n);
k := 0;
for i := 1 to n do begin
readln(a);
if (a mod 4 = 0) and (a mod 7 <> 0) then
k:=k+1;
end;
writeln(k)
end.
More Questions From This User See All
Answers & Comments
Verified answer
алг
нач
цел n,i,a,k
ввод n
k:=0
нц для i от 1 до n
ввод a
если mod(a,4)=0 и mod(a,7)<>0 то
k:=k+1
все
кц
вывод k
кон