Запишите программу на языке паскаль var i, n: word begin write ('n='); readln ( n ); for i=1 to n do begin write (i,' '); end; readln; end. на экране n=4 16 1 2 3 4 4 0

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end. 

var a,b,c,a1,b1,c1: real;

begin

readln(a,b,c);

b1: =a;

c1: =b;

a1: =c;

writeln(a1,b1,c1);

end.