Надо чтобы в лодку сели Бах и Гэ, а Вау и Ах должны поплыть без лодки, так как они плывут быстрее, и поэтому все успеют приплыть туда и вернуться обратно за 18 часов !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Var i,a,b,c:integer;
Begin
For i := 10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
c:= a*a+b*b;
if c mod 13=0 then
writeln(i);
end;
End.
LOOKUP(C2,H$2:H$6,I$2:I$6)
Ответ:
Если добавить пропущенные пробелы, то верно.
Объяснение:
Можно убедиться в этом, например, так:
Const a:array[1..3]of integer=(13,8,58);
begin
writeln(a[1],' ',a[2],' ',a[3]);
end.
Результат:
13 8 58