написать программу в Паскале:
10-11 класс
|
Даны три числа А,В,С.Определить являются ли они последовательными членами арифметической прогрессии. Найти их разность.
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.
рядом со "спасибо" должно быть
Я об этом и говорю, что его нет(
ну ладно, в любом случае, рад был помочь))
Другие вопросы из категории
Дано предложение в котором между словами 2 или несколько пробелов:"Мама моет Машу".
Сколько сочетаний букв "Ma" в предложении.
(a,z:real);
c) Function P(A: array [1..100] of integer ):integer;
d) Procedure (x,y:integer; var t:real);
e) Procedure AE (S:string; k:byte):string;
f) Procedure M (b,c: integer; var k:real);
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
http://primat.org/index/0-128 вот сайт что бы написать программу.
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.