(Turbo Pascal)
1). Даны три числа. Вывести на экран то из них, которое больше.
2). вывести название, есяцс по его порядковвому номеру.
срочно решите задачки плиз сама не понимаю как их решать... даю 40 баллов
Ответы
Ответ дал:
0
1)
var
a1, a2, a3, max: integer;
begin
write ('Введите три числа: ');
readln (a1, a2, a3);
if a1 >= a2 then
max := a1
else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln
end.
2)
var
n: integer;
begin
repeat
writeln('Введите номер месяца [1..12]');
readln(n);
until n in [1..12];
case n of
1: writeln('Январь');
2: writeln('Февраль');
3: writeln('Март');
4: writeln('Апрель');
5: writeln('Май');
6: writeln('Июнь');
7: writeln('Июль');
8: writeln('Август');
9: writeln('Сентябрь');
10: writeln('Октябрь');
11: writeln('Ноябрь');
12: writeln('Декабрь');
end;
end.
var
a1, a2, a3, max: integer;
begin
write ('Введите три числа: ');
readln (a1, a2, a3);
if a1 >= a2 then
max := a1
else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln
end.
2)
var
n: integer;
begin
repeat
writeln('Введите номер месяца [1..12]');
readln(n);
until n in [1..12];
case n of
1: writeln('Январь');
2: writeln('Февраль');
3: writeln('Март');
4: writeln('Апрель');
5: writeln('Май');
6: writeln('Июнь');
7: writeln('Июль');
8: writeln('Август');
9: writeln('Сентябрь');
10: writeln('Октябрь');
11: writeln('Ноябрь');
12: writeln('Декабрь');
end;
end.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад