Напишите блок схему. умоляю скорее ! program pr1; - вопрос №99438111 от kobita 17.12.2022 23:35

Question

Информатика: Напишите блок схему. умоляю скорее ! program pr1; var i,b: integer; a,s: real; beginreadln(b); for i: =1 to b-9 dobeginreadln(a); if (a mod 3 = 0) and (a mod 2 0) thens: =s+a; end; writeln(s); end.​

kobita · Answer

7×y=100-97×y=91y=91÷7y=13проверка: 7×13=100-9...

Напишите блок схему. умоляю скорее ! program pr1; var i,b: integer; a,s: real; beginreadln(b); for i: =1 to b-9 dobeginreadln(a); if (a mod 3 = 0) and (a mod 2 < > 0) thens: =s+a; end; writeln(s); end.​

Напишите блок схему. умоляю скорее !
program pr1;
var i,b: integer; a,s: real;
begin
readln(b);
for i: =1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 < > 0) then
s: =s+a;
end;
writeln(s);
end.