Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.
в цикле sum [i]: =sum+mas[i,j];
в не указан шаг изменения x , допустим он равен 1
var
x,y: real;
begin
x: =1;
while x< =10 do
y: =1/x-5;
writeln(y: 8: 2);
x: =x+1;
end;
end.
20 - 25 = -5
-5 в десятичной системе
Популярные вопросы