Задание 5. Циклы.По каналу связи передается последовательность - вопрос №126297095 от LikaKotik666 10.01.2020 10:55

Question

Информатика: Задание 5. Циклы.По каналу связи передается последовательность положительных целых чисел, все числа не превышают 500, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число, которое можно получить умножением двух различных элементов последовательности.Напишите программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное

LikaKotik666 · Answer

Program yeah;vara,b,c,d,n:integer;beginwriteln( введите число.(0-юноша,1-девушка). );readln(n);if n=0 then beginwriteln( введите вес );readln(a);writeln( введите рост );readln(b);if b=110 then beginif a =b then writeln( юноша принят. );end;if a b then writeln( не подходит по весу. );if b 110 then writeln( не подходит по росту. );end;if n=1 then beginwriteln( введите вес );readln(a);writeln( введите рост );readln(b);if b=115 then beginif a =b then writeln( девушка принята. );end;if a b then writeln(...