1.
<span>var a,b,c,t:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
t:=a;
a:=b;
b:=c;
c:=t;
writeln('a = ',a,' b = ',b,' c = ',c);
end<span>.
Пример:
</span><span>a, b, c:
5 8 3
a = 8 b = 3 c = 5
2.
var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
writeln(a,' / ',b,' = ',a/b:6:3);
end.
Пример:
<span>a, b:
5 8
5 / 8 = 0.625</span></span></span>
Здесь следует помнить:
1 байт=8 бит, 1 Кбайт=1024 байт
и операции с умножением и делением степеней с одинаковым показателем. Ответ во вложении
Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
<span>end.</span>
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>