Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении
Program aaa;
var
a,b,c,i,z:integer;
begin
randomize;
z:=0;
for i:=1 to 10 do begin
a:=random(9)+1;
b:=random(9)+1;
write(a,'*',b,'=');
readln(c);
if(c=a*b) then inc(z);
end;
writeln('Из 10 заданий вы выполнили ',z,' заданий!');
end.
Это когла создают компьютерные модели для дальнейшого использования
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).
Where(p -> p.IsEven and (p >= 50)).Println
end.
.psd - фотошоп, .crd - корел, .bmp - пайнт
Ответы: 1, 3, 5