Var
A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn('Количество сотен больше')
else if B<A then WriteLn('Количество единиц больше')
else WriteLn('Количества сотен и единиц равны')
End.
Program zadacha_1;
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
writeln(c);
end;
end.
<span>
program zadacha_2;
var a,b,c:integer;
begin
c:=1;
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
for a:=a to b do begin
c:=c*a;
end;
writeln('произведение чисел от ',a,' до ',b,' ==> ',c);
end.
<span>
program zadacha_3;
var a,b,c:integer;
d:real;
begin
c:=0;
writeln('введите число');
readln(a);
for b:=10 to a do begin
c:=c+1;
d:=d+b;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.</span></span><span /><span><span><span>
</span></span></span>
32= 100000 2cc 6 бит на символ
64= 1000000 2cc 7 бит на символ
80*6/70*7 = 48/49
Формат 2003. Другой заблокирован сайтом