Задание №1. Набрать
программу для решения задачи и дополнить тремя недостающими командами.
Задано число a. Определить, является ли
число a положительным или неположительным.
Выдать на экран соответствующее сообщение.
Var a:
integer;
Write(‘введите
значение а’);
Readln(а);
if а>0
then
Writeln (‘число положительное’)
else
Writeln (‘число неположительное’);
Задание №2.
Напишите условие задачи к программе.
Program aa2;
var b:integer;
begin
write ('Введите
целое число: ');
readln (b);
if (b>=99) and
(b<=1000) then writeln ('число трехзначное') else
writeln ('число не трехзначное');
end.
Задание №3. Написать программу, которая определяет по введенному
номеру, является ученик учащимся начальной школы (1-4), средней школы
(5-9), и старшей школы (10-11) и вывести
сообщение на экран
Задание №4. Написать программу к
задаче. Введите число. Если введенное число четное, то найдите квадратный корень из числа, иначе
найдите модуль введенного числа. Выведите результат на экран.
Задание №5. Написать программу к
задаче. Введите число. Если введенное число четное, то найдите квадратный
корень из числа, если число нечетное - найдите модуль введенного числа и, если
число равно 0, то прибавьте к нему 100. Выведите результаты на экран.