3. program n3;
uses crt;
var b:integer;
begin
write('Введите число ');
read(b);
writeln(b);
<span>end.
4. </span>program n4;
uses crt;
var c:real;
begin
write('Введите число ');
readln(c);
c:=c*2;
writeln('Ответ равен 'c);
<span>end.
5. </span>program n5;
uses crt;
var y,z,x:real;
begin
write('Введите число ');
readln(x);
y:=5.5;
z:=x-y;
writeln('Ответ равен 'z);
<span>end.
6. </span>program n6;
uses crt;
var y,x,z:real;
begin
write('Введите число ');
readln(x);
y:=2.5;
z:=x/y;
writeln('Ответ равен 'z);
<span>end.</span>
640*512 * 7 = 2 293 760 бит = 286 720 байт = 280 Кбайт
Const n=11;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(16);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('s=',s,' sr=',s/n:5:2);
<span>end.
Пример работы:
6 12 7 9 3 15 10 10 6 2 8
s=88 sr= 8.00<span>
</span></span>
Int a;
in>>a;
if(a>12)out<<"Дневное отделение";
else if (a<8)<<"Отказ";
else out<<"Заочное";