среда, 19 января 2022 г.

урок 20 января


На уроке решаем задачи

выяснить число больше 100?

выяснить число больше 200?

выяснить число больше 100 и меньше 200?

выяснить число четное?

выяснить число кратно 7? 

выяснить число четное  и  число кратно 7?


Решить задачу: Если число четное, то  возвести его в квадрат, иначе от него отнять 5

var b, y:integer;
begin

write('Введите число ');
readln(b);
if b mod 2=0 then y:=sqr(b) 

                        else y:=b-5 ;

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

Решить задачу

если число положительно и четное возвести его в квадрат иначе умножить на 3

var b, y:integer;
begin

write('Введите число ');
readln(b);
if (b mod 2=0) and( b>0)

                       then y:=sqr(b) 

                        else y:=b*3 ;

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