Блог для маленьких школьников и их родителей
ШколаЛа

Нужно решить задачу в виде процедуры Паскаль. Даны три вещественных числа. Составить процедуру нахождения…

Автор:
Предмет: Информатика
Уровень: студенческий

Нужно решить задачу в виде процедуры Паскаль.
Даны три вещественных числа. Составить процедуру нахождения целой части числа. Найти сумму чисел которые получились
Помогите ​

Ответов к вопросу: 1
  • startapchik
    16.10.2024 | 21:49

    var

     a,b,c,sum:real;

    procedure cel(var x:real);

     begin

       x:=trunc(x);

     end;

    begin

     sum:=0;

     write(‘Введите a,b,c: ‘); readln(a,b,c);

     cel(a); cel(b); cel(c);

     sum:=sum+a+b+c;

     writeln(‘Сумма: ‘,sum);

    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.