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.
Var a,n,i,ans:integer;
begin<span>
readln(a);</span><span>
readln(n);</span><span>
i:=0;</span><span>
ans:=1;</span><span>
while(i<n) do</span><span>
begin</span><span>
ans:=ans*a*a;</span><span>
inc(i);</span><span>
writeln(ans);</span><span>
end;
</span>end.
<span>Так? По тести)</span>
Оперативная память : RAMRecovery Tool v1.7
Архиватор : WinRar
Антивирусная рограмма: Kaspersky
Коммуникационная программа: ICQ
Система программирования: Delphi
Текстовый редактор: WordPad
Графический редактор: mspaint
Редактор презентаций : ms power point
Электронные таблицы: excel
Электронное учебное издание(учебники , тренажер , энциклопедия...) : PHP and MySQL - Andy Harris
<span>Игра : GTA 5</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите три числа:');
if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
Writeln('a=',a,', b=',b,', c=',c)
end.
Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8
Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.
