512 сек
Объяснение:
program z1;
uses GraphABC;
var t:integer;
begin
SetWindowSize(400,400);
write('Введите показания температуры: ');
read(t);
SetPenWidth(3);
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,clSkyBlue);
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);
Circle(200,200,50)
end
end.
Объяснение:
Вводим температуру
Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко
Программа:
алг
нач
цел х
лит пол
вывод 'Введите возраст: '
ввод х
вывод 'Введите пол (одной буквой): '
ввод пол
выбор
при пол = 'м':
выбор
при х>=2 и х<4 : вывод '1000 калорий'
при х>=4 и х<9 : вывод '1500 калорий'
при х>=9 и х<14 : вывод '2000 калорий'
при х>=14 и х<19 : вывод '2600 калорий'
при х>=19 и х<31 : вывод '2700 калорий'
при х>=31 и х<51 : вывод '2500 калорий'
при х>=51 и х<100 : вывод '2300 калорий'
иначе
вывод 'Ошибка при вводе возраста'
все
при пол = 'ж':
выбор
при х>=2 и х<4 : вывод '1000 калорий'
при х>=4 и х<9 : вывод '1500 калорий'
при х>=9 и х<14 : вывод '1800 калорий'
при х>=14 и х<19 : вывод '2000 калорий'
при х>=19 и х<31 : вывод '2100 калорий'
при х>=31 и х<51 : вывод '2000 калорий'
при х>=51 и х<100 : вывод '1600 калорий'
иначе
вывод 'Ошибка при вводе возраста'
все
иначе
вывод 'Ошибка при вводе пола'
все
кон
Результат выполнения:
24
Объяснение:
24