Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.

0 0

4 года назад

Как составить программу решения квадратного уравнения a[tex] a x^{2} + bx + c=0

ulanos [41]

Добавил................

0 0

1 год назад

Составить программу для подсчета идеального веса человека. Данные для ввода: A-рост, V-возраст, P-признак(1 - мужчина, 0 - женщи

Марсианин01

Program n1;
var a,v,p,s: real;
begin
write('введите рост: ');
readln(a);
write('введите возраст: ');
readln(v);
write('введите признак(1 - мужчина, 0 - женщина): ');
readln(p);
if p=1 then s:=(3*a-450+v)*0.25+45;
if p=0 then s:=(3*a-450+v)*0.225+40.5;
writeln('идеальный вес: ',s);
end.

0 0

4 года назад

Составьте в тетради программу на языке программирования Паскаль. В качестве ответа прикрепите фото программы в тетради!

Siona

Var
x, y: real;

begin
write('x = ');
readln(x);
if (x <= 2) then
y := sqr(x) + 4 * x + 5
else
y := 1 / (sqr(x) + 4 * x + 5);
writeln('F(x) = ', y);
end.

0 0

4 года назад