Program xxx;
var rost,ves,resultat:real;
begin
Writeln('Добро пожаловать в калькулятор веса.');
Write('Введите ваш вес:'); read(ves);
Write('Введите ваш рост:');
read(rost);resultat:=rost-100;
Write('Итог: Ваш вес: ' ,ves);
Writeln('Ваш рост: ' ,rost);
Write('Ваш нормальный вес(+-5):' ,resultat);
<span>end.</span>
var k,p,d:real;i:integer;begin
write('Write kol:');readln(k);
write('Write percent:');readln(p);
for i:=1 to 50 do
d:=k/(1+(p/100)*i);
writeln(d:0:2);
end.
Код может быть неточен так как нет данных для проверки.
<span>1) 'windranger' > 'wind' длина первого операнда больше, на равной длине операнды равны;
'ASCII' < 'Ascii' символ S имеет код меньший, чем s
'cat' = 'cat'
'винни-пух' > 'Сова' символ "в" имеет код больший, чем "С"
2) Val('23.456', x, k) ⇒ x=23.456, k=0
Val('-45', x, k) ⇒ x=-45, k=0
Val('5.87c-5', x, k)</span> ⇒ x=0, k=1 Ошибка в представлении числа
<span>System.Math.Sin(от чего)</span>
const n = 10;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := random(100);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольший эл. массива: ', max);
end.