Задания.ру
Анонимно
5 часов назад

program projectwork;
begin
var a, b, c:integer;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=');
end;
end.




ожидался идентификатор но вар обнаружено

Ответ

Анонимно
program projectwork;
var a, b, c:integer;
d:real;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=',d);
end.
P.S.Если эта программа находит среднее арифметическое 3 введённых чисел,то d:=(a+b+c)/3;

Новые вопросы по Информатике

Составить программу которое вводит с клавиатуры 2 числа и выводит их сумму,разность,произведение и частное
5 - 9 классы
2 минуты назад
Исправьте программу программа не запускается Program lab3; var i,imax,max:integer; b:array[1..50]of integer; begin for i:=1 to 50 do begin for b[i]:=((sin*i)+(exp(sin*i))(cos*i)); write(...
10 - 11 классы
2 минуты назад
Уличный продавец газет получает А рублей с продажи каждой из 50 газет. с продажи каждой из остальных газет он получает на 20% больше. разработай программу, которая вычислит заработок продавца, если он...
5 - 9 классы
8 минут назад
Чему будет равно значение переменной X после выполнения данной последовательности команд? x:=0; for i:=1 to 10 do for j:=1 to 20 do x:=x+2;
5 - 9 классы
8 минут назад
Декодируйте текстовые сообщения. 1) Сообщение в кодировке ASCII: 01010011 01001111 01000110 01010100. Декодированное сообщение: 2) Сообщение в кодировке КОИ-8: 1111000 11000001 11010000 11001011 1...
5 - 9 классы
9 минут назад