Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
Prigram t1;
Var a,b,s,i:integer;
Begin
S:=0;
Read (a,b);
For i:=a to b do
S:=s+1;
Write (s);
End.
Пробуй поменять
#include<windows.h>
на
#define _WIN32_WINNT 0x0500
#include<windows.h>
var
x, y: real;
begin
read(x, y);
write((x * x - 7 * x + 6) / abs(y))
end.