Var
a:integer;
begin
write('Введите номер месяца: ');
readln(a);
case a of
1: writeln('Январь.31 день');
2: writeln('Февраль.29 дней');
3: writeln('Март.31 день');
4: writeln('Апрель.30 дней');
5: writeln('Май.31 день');
6: writeln('Июнь.30 дней');
7: writeln('Июль.31 день');
8: writeln('Август.31 день');
9: writeln('Сентябрь.30 дней');
10: writeln('Октябрь.31 день');
11: writeln('Ноябрь.30 дней');
12: writeln('Декабрь.31 день');
end;
end.
2.
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
case a of
1: write(a, ' Копейка');
2..4: write(a, ' Копейки');
5..20: write(a, ' Копеек');
end;
end.
Program dfg;
var x, y: integer;
begin
read(x,y);
If (y<=(2-x*x)) and ((y>=x) or (x>=0)) then write ('да') else write ('нет');
end.
Со сложным условием
Решение приложил.
(О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.)</span>
Объем изображения= количество пикселей экрана*глубину кодирования=
1024*768*32= 25165824 бит
25165824/8= 3145728 байт
3145728/1024= 3072 Кбайт
3072/1024= 3 Мбайт
Ответ:
использовать Чертежник
алг
нач
цел й,ц
нц для й от 1 до 2
нц для ц от 1 до 4
опустить перо
сместиться на вектор (0,ц)
сместиться на вектор (ц,0)
сместиться на вектор (0,-ц)
сместиться на вектор (-ц,0)
поднять перо
сместиться на вектор (ц+1,0)
кц
сместиться в точку (0,-5)
кц
кон
Объяснение:
Смотри картинку