Регистрация
Алина678901
10.03.2023 18:46
Информатика
Есть ответ 👍

Нарисовать блок-схему, и определить, что будет напечатано в результате следущей программы Var s,k:integer;
begin
s:=86;
For k:=4 to 9 do
if k mod 2 =0 then s:=s-k;
writelen(s);
end

156
293
Посмотреть ответы 1

Ответы на вопрос:

ххх87
ххх87
4,6(58 оценок)

можешь не

var

a,n: integer;

begin

readln(a);

while a< > 0 do

begin

if (a mod 5=0)or (a mod 7=0)then inc(n);

readln(a);

end;

writeln(n);

end.

Популярно: Информатика