Установи соответствии между блоками « Независимого управления» и их направлениями движения.

Question

Информатика: Установи соответствии между блоками « Независимого управления» и их направлениями движения. ​

Romchik1111111 · Accepted Answer

Program pr3;
var poroda:string;
age,holka:real;
n,i,k:integer;
begin
repeat
write ('Введите количесвто собак на выстовке: ');
readln (n);
until n>0;
k:=0;
for i:= 1 to n do
begin
writeln ('Введите по отдельности: породу, возраст и высоту холки очередной собаки: ');
readln (poroda);
readln (age);
readln (holka);
if (poroda='боксер') and (age>=2) and (age<=3) and (holka>=55) then k:=k+1;
end;
if k>0 then writeln('Число боксеров c нужным возрастом и холкой на выставке: ', k) else writeln ('Боксеров с нужными критриями навыставке не обнаружено');
end.

Установи соответствии между блоками « Независимого управления» и их направлениями движения.​

MOGZ ответил

Установи соответствии между блоками « Независимого управления» и их направлениями движения.