Question

БРАТЦЫ!!!! ВЫРУЧАЙТЕ!!!! ПОЖАЛУЙСТА!! СРОЧНО!!! 1. С клавиатуры вводятся 2 числа. Если первое число больше 5, то уменьшить второе число в 2 раза. (записать комментарий в каждой строке программы) 2. Среди трех введенных целых чисел найти количество положительных.

Answer 1

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.{конец тела программы}