10-Лекция 04 Ветвление

Else ;

; . . .

n>
end
Else
begin <инструкция 1'>; . . . <инструкция m'>
end

If Then ;
If

<логическое выражение> Then
begin <инструкция 1>; . . . <инструкция n>
end;

в противном случае прибавить к нему 100
Var
a :

integer;
Begin
writeln(‘Enter number’);
readln(a);
if (a>=0) then
a:=a-50
else
a:=a+100;
writeln(‘Rez ’, a)
end.

readln(a);
write(‘Enter b’);
readln(b);
write(‘Enter c’);

readln(c);
if (a>b)and(a>c) then
writeln(‘max number is ’, a)
else
begin
if b>c then
writeln (‘max number is ’, b)
else
writeln (‘max number is ’, c)
end
end.

a’);
readln(a);
write(‘Enter b’);
readln(b);

write(‘Enter c’);
readln(c);
if (a>=b) then
d:=a
else
d:=b;
if c>=d then
d:=c;
writeln(‘max number is ’, d)
end.

n, то вывести на экран частное от деления, в противном

случае вывести сообщение "m на n нацело не делится".
Задание 2
Дано пятизначное число. Выяснить, является ли оно палиндромом ("перевертышем"), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево.
Задание 3
Определить максимальное и минимальное значение из трех различных вещественных чисел.
Задание 4
В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают не менее 13 баллов, то это дает право поступить на дневное отделение, от 10 до 12 - на вечернее, от 8 до 9 - на заочное; ниже 8 баллов означает отказ в приеме на учебу. Написать программу, которая в зависимости от набранных баллов сообщает абитуриенту его права на поступление.
Задание 5
Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700, 1800 и 1900 - невисокосные года, 2000 - високосный). Дано натуральное число n. Определить, является ли високосным год с таким номером.