Program exampl;
Uses Crt;
Var
a,b,c: integer;
s: real;
BEGIN
writeln('введите любые три
числа' ;
read(a,b,c);
b: a+b+c)/3;
writeln('среднее
арифметическое трех
введеных чисел будет', b);
END.
а скажи, как у тебя тип byte принимает значение 3, или еще веселее - таблица у тебя longint, а результат integer, и мало того, что типы не соответствуют, так еще и задача совершенно не решена - у тебя же получается одна цифра (не настораживает?)
Мы используем cookie-файлы, чтобы улучшить сервисы для вас. Если ваш возраст менее 13 лет, настроить cookie-файлы должен ваш законный представитель. Больше информации
Комментарии 6
Uses Crt;
Var
a,b,c: integer;
s: real;
BEGIN
writeln('введите любые три
числа' ;
read(a,b,c);
b: a+b+c)/3;
writeln('среднее
арифметическое трех
введеных чисел будет', b);
END.
var a:array[1..5,1..5] of longint;
i,j:byte;
s:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
s:=s+a[i,j];
writeln
end.
var a:array[1..5,1..5] of longint;
i,j:byte;
s:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
s: =s+a[i,j];
writeln ( s);
end.
var a:array[1..5,1..5] of longint;
i,j:byte;
s:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
s: = s+a[i,j];
writeln
end.