Информатика, опубликовано 2018-08-22 23:22:35 by Гость
написать программу в Паскале:Даны три числа А,В,С.Определить являются ли они последовательными членами арифметической прогрессии. Найти их разность.
Ответ оставил Гость
Var a,b,c,d:real;
begin
readln(a,b,c);
if a-b=b-c then
begin
d:=b-a;
writeln(d);
end
else
writeln(No);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.