Вычислите значение функций. 1) round (-7,1); 2) frac (1,7); 3) 38 div 4; 4) 24 mod 7; 5) (2389 div 10) - id121700120210416 от funny43 16.04.2021 08:42

Question

Информатика: Вычислите значение функций. 1) round (-7,1); 2) frac (1,7); 3) 38 div 4; 4) 24 mod 7; 5) (2389 div 10) mod 100; 6) sqr (8); 7) sqrt (144); 8) round (-2,6) + abs (-8,2); 9) sqrt (25) * (17 mod 3); 10) 265 div 10 – sqr (3

funny43 · Accepted Answer

Var
a: integer; //a - вводимое число
n, s: integer; //n- количество введенных чисел, s - сумма этих чисел

begin
n:= 0; //обнуляем счетчик
s:= 0;
a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
while a <> 0 do
begin
writeln('Введите целое число');
readln(a);
if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0
begin
n:= n + 1;
s:= s + a;
end;
end;
writeln('Среднее арифметическое введенных чисел: ', s / n);
end.

Вычислите значение функций. 1) round (-7,1); 2) frac (1,7); 3) 38 div 4; 4) 24 mod 7; 5) (2389 div 10) mod 100; 6) sqr (8); 7) sqrt (144); 8) round (-2,6) + abs (-8,2); 9) sqrt (25) * (17 mod 3); 10) 265 div 10 – sqr (3

MOGZ ответил