В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Dollyy
Dollyy
24.08.2021 22:53 •  Информатика

Program qq; var M, D: integer;
begin
writeln('Введите номер месяца:');
read ( M );
case M of
2: begin D := 28; end;
4,6,9,11: begin D := 30; end;
1,3,5,7,8,10,12: D := 31;
else D := -1;
end;
if D > 0 then
writeln('В этом месяце ', D, ' дней.')
else
writeln('Неверный номер месяца');
end.
Результат вычислений:

Показать ответ
Ответ:
wartander595
wartander595
14.12.2021 14:37

я уже вроде отвечал на такой вопрос, нашел код, вот:

import datetime

info = datetime.datetime.now()

hours = info.hour

mins = info.minute

sec = info.second

print(hours,mins, sec)

a = []

if hours == 1 or hours == 21:

a.append(f'{hours} час')

elif hours % 10 == 2 or hours % 10 == 3 or hours % 10 == 4:

a.append(f'{hours} часа')

else:

a.append(f'{hours} часа')

if mins % 10 == 1:

a.append(f'{mins} минута')

elif mins % 10 == 2 or mins % 10 == 3 or mins % 10 == 4:

a.append(f'{mins} минуты')

else:

a.append(f'{mins} минут')

if sec % 10 == 1:

a.append(f'{sec} секунда')

elif sec % 10 == 2 or sec % 10 == 3 or sec % 10 == 4:

a.append(f'{sec} секунды')

else:

a.append(f'{sec} секунд')

print(*a)

думаю сможете сами всё это просто запихнуть в функцию и будет вам счастье)

Объяснение:

0,0(0 оценок)
Ответ:
Hartfilia
Hartfilia
26.07.2022 14:16

program z1;

uses GraphABC;

var t:integer;

begin

SetWindowWidth(400);

SetWindowHeight(400);

SetFontSize(15);

write('Введите показания температуры: ');

read(t);

write(t);

SetPenWidth(2);

if t<=0 then

begin

SetPenColor(clBlue);

Line (150,200,200,150);

Line (200,150,250,200);

Line (250,200,200,250);

Line (200,250,150,200);

FloodFill(200,200,clLightBlue);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100)

end

else

begin

SetPenColor(clYellow);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100);

SetBrushColor(clYellow);

FillCircle(200,200,50)

end

end.

Объяснение:

картинки


Алгоритмическая конструкция Нужно составить программу очень
Алгоритмическая конструкция Нужно составить программу очень
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота