Задача по информатике 11 класс информатика паскаль
Ввести три числа А,В,С , если не одно из чисел не равно нулю,то в переменную К записать среднее арифметическое трех чисtk
Program p1
....
..
...
..
...
....
end.
По дате
По рейтингу
Program p1;
var a,b,c,k: real;
begin
writeln('Введите 3 числа'); ///
readln(a,b,c);
if (a<>0) and (b<>0) and (C<>0) then
begin
k:=(a+b+c)/3;
writeln('Среднее арифметическое =',k:4:2); ///
readln; ///
end;
end.
Проверенно, работает, по идее по условию задачи строчки помеченные "///" не особо и нужны, но думаю лишними не будут.
Program p1
var
begin
a, b, c, k: real;
writeln('Вевдите 3 числа');
readln(a, b, c);
if a<>0 and b<>0 and c<>0 then
begin k:=(a+b+c)/3;
writeln('Среднее арифметическое трех чисел: ', k:5:2)
end;
end.
На ошибки не проверял.
Больше по теме