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.
Результат вычислений:
я уже вроде отвечал на такой вопрос, нашел код, вот:
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)
думаю сможете сами всё это просто запихнуть в функцию и будет вам счастье)
Объяснение:
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.
Объяснение:
картинки