<span>Program prim;
</span>
<span>var n,i: </span>integer;
<span><span>begin
</span></span>
writeln ('Введите число n', n);
<span>
readln (n);
</span>
<span>for i:=</span>1 to <span>n do write (i);</span>
<span>
end.</span>
Program znanija_com;
uses crt;
var
a,cch,dch,sq,o,c:real;
begin
writeln('Введите число А: ');
read(a);
cch:=Int(a);
dch:=frac(a);
sq:=sqr(a);
o:=frac(a/5);
writeln(cch,' ',dch,' ', sq,' ',o);
end.
последнее даже не понял что там нужно. так что держи без последнего
Var
A,N:integer;
M:array[1..10001] of integer;
Begin
ReadLn(N,A);
if A mod 2<>0 then A:=A+1;
For N:= 1 to N do
Begin
M[N]:=A;
A:=A+2;
Write(M[N],' ')
End;
End.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
128 кб. экран VGA (640X480? 256)