Напишите блок схему. умоляю скорее ! program pr1; - вопрос №99429091 от ros25 02.11.2020 03:32

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.​

ros25 · 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.