Question

Помогите решить срочно!!!!!! Pascal

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

№2

begin
  var (x,y):=ReadReal2('Введите х и у');
  if x+y<20 then (x+10).Println
end.

Пример
Введите х и у 15.7 -4.2
25.7

№3.1

begin
  var (c,b,k):=(26,5,0);
  while c>b do begin
    c-=b; k+=1
    end;
  Println(k,c)
end.

Результат
5 1

№3.2

begin
  var (c,b,k):=(26,5,0);
  repeat
    c-=b; k+=1
  until c<=b;
  Println(k,c)
end.