Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
Var a,s1,s2,i:integer;
begin
a:=random(4901)+100;
writeln('a = ',a);
s1:=0; s2:=0;
for i:=1 to 4 do
begin
if a mod 2 = 0
then s1:=s1+a mod 10 else s2:=s2+a mod 10;
a:=a div 10;
end;
writeln('Сумма чётных цифр = ',s1,' Сумма нечётных цифр = ',s2);
end.
Пример:
<span>a = 4683
Сумма чётных цифр = 18 Сумма нечётных цифр = 3</span>
Ответ:
72
Объяснение:
Упростим
НЕ ((x<= 70) ИЛИ НЕ (х чётное))
НЕ ((x<= 70) ИЛИ (х нечётное))
(x > 70) И (x чётное)
Минимальное четное, большее 70, это 72.
А) гнездо
б) температура
в) ковёр