урок 18-20 н

 // фам

// Если  b больше 100 , то у равен b/2, иначе  у равен b*2
var b, y:integer;
begin
write('Введите число ');
readln(b);
if b >100            then y:=b/2         else y:= b*2  ;

        

writeln('результат=' ,y);
end.

Это шаблон

// фам
// Если число положительное, то добавить  к нему  число 10, иначе сделать его равным 7
var b, y:integer;
begin
write('Введите число ');
readln(b);
if (b>0)
         then y:=b+10
         else y:=7 ;
writeln('результат=' ,y);
end.

Задание №8. Напишите программу к задаче. Ввести с клавиатуры целые числа а, b. Написать программу, которая, если числа равны между собой выводит сообщение «числа равны»  и в противном случае «числа не равны».

 

* Задание № 9. №10Напишите программу к задаче. Ввести с клавиатуры целые числа с и d. Написать программу, которая подсчитывает, сколько среди них чисел меньших равно 100 и  больших 100.