1. с клавиатуры вводятся 2 числа. если первое число больше 5, то уменьшить второе число в 2 раза. (записать комментарий в каждой строке программы) 2. среди трех введенных целых чисел найти количество положительных.

262

419

Посмотреть ответы 2

Ответы на вопрос:

keckush

Информатика

4,8(96 оценок)

1.var a: integer; {объявление переменных} b: real; begin{начало тела программы} write('введите два числа => '); {вывод сообщения пользователю} readln(a,b); {ввод данных пользователем} if (a> 5) then {сравнение первого введённого числа с 5} b: =b/2; {если а> 5 b приравниваем к b делённое на 2} writeln(b); {выводим b} end.{конец тела программы} 2.var a,b,c,d: integer; {объявление переменных} begin{начало тела программы} write('введите три числа (через пробел) => '); {вывод информации пользователю} read(a,b,c); {ввод инф. пользователем} if (a> =0) then d: =d+1; {если а положительное число счётчик +1} if (b> =0) then d: =d+1; {тоже самое что с верху} if (c> =0) then d: =d+1; {тоже самое что с верху} writeln('количество положительных чисел ',d); {вывод информации} end.{конец тела программы}