Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
листовой вроде
Объяснение:
загугли если не правильно
var a: array [1..10] of integer;
n,i: integer;
begin
{vvod massiva skopirovat suda}
for i: = 1 to 10 do begin
if a[i] mod 10 = 0 then
n: =n+1;
end;
writeln(n);
end.
var i: integer;
for i: = 35 to 87 do
if i mod 7 =1 then
writeln(i);
Популярные вопросы