Предмет: Информатика,
автор: yokii
написать программу в Паскале:
Даны три числа А,В,С.Определить являются ли они последовательными членами арифметической прогрессии. Найти их разность.
Ответы
Автор ответа:
0
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.
begin
readln(a,b,c);
if a-b=b-c then
begin
d:=b-a;
writeln(d);
end
else
writeln('No');
end.
Похожие вопросы
Предмет: Математика,
автор: Voprosilnikc
Предмет: Русский язык,
автор: korudzhaliyev
Предмет: Русский язык,
автор: daniiltsaritsip8q7b6
Предмет: Обществознание,
автор: идивклассв6д