Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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