Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
5
Объяснение:
for i:=1 to 5 do
begin
...
end;
в лодку помещается 2 человека? если так, то решение будет:
1. сперва перевправляются 2 , один возвращается назад на лодке.
2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .
3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .
4. переплывают 2 оставшихся .
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(a,b,c); if a> =0 then a: = sqr(a);
if b> =0 then b: = sqr(b);
if c> =0 then c: = sqr(c);
writeln('ответ: ');
write(a, b, c);
readlnend.
Популярные вопросы