Это при помощи read,readln Помогите с информатикой!
Answers & Comments
haska044
Не указано какую конкретно задачу нужно решить, поэтому выбрал наугад. Решение задачи 3: program ggg;var x,y,z: integer;beginwriteln('введи три числа');readln(x,y,z);if (x>0) and (y>0) and (z>0)thenwriteln('каждое из чисел положительно')elsewriteln('хотя бы одно из чисел положительно')end.
Answers & Comments
Решение задачи 3:
program ggg;var x,y,z: integer;beginwriteln('введи три числа');readln(x,y,z);if (x>0) and (y>0) and (z>0)thenwriteln('каждое из чисел положительно')elsewriteln('хотя бы одно из чисел положительно')end.