Var a,b:integer;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a > b) then
writeln('a больше b')
else if (b > a) then
writeln('b больше a')
else
writeln('a равен b');
end.
Человек и маленькая обезьяна
человек большая обезьяна и возврат обезьяны
человек большая обезьяна и возврат обезьяны
Большая и маленькая обезьяна
человек и большая обезьяна.3 человек переправить через реку а обезьяны нет.у меня получилось так)))
Паскаль
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.
Лайк кста
Lot is. Потому что lot в предложенных вариантах не присутствовал, как и слово кот. Is - серая/ый, потому что в первом предложении данное слово не было предложено, а may(мышь) было
Мой ответ отличается от твоих вариантов.
Начинаем в D:\Квартиры\Цены\Дорогие<span>.
</span>D:\Квартиры\Цены<span>.
</span>D:\Квартиры\Цены\Премиум<span>.
</span>D:\Квартиры\Цены\Премиум\Центральный
D:\Квартиры\Цены\Премиум.
Ответ: D:\Квартиры\Цены\Премиум.