Var
a,chislo,t:longint;
<span>c,nov,posl:integer; </span>
<span>begin </span>
<span>readln(a); </span>
<span>posl:=a mod 10; </span>
<span>chislo:=a; </span>
<span>t:=1; </span>
<span>repeat </span>
<span>a:=a div 10; </span>
<span>t:=t*10; </span>
<span>until a<10; </span>
<span>chislo:=chislo mod t; </span>
<span>chislo:=posl*t+chislo-posl+a; </span>
<span>writeln(chislo); </span>
<span>readln; </span>
<span>end.</span>
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
Графическая Информация : Мышь, Системный Блок, Клавиатура, Монитор.
Текстовая Информация : Корешок, обложка, страница.
--------------------------
Анастасия Всеумная.
<u>графический интерфейс</u>. ( ну и так для ознакомления:В графическом интерфейсе компьютерные обьекты представляютя небольшими рисунками(значками), нужный значок выбирают с помощью мыши.Кроме значков используются также тексты(для подсказок) и меню (для выбора команд)
V= 25600 бит/с
t = 180 сек
Найти I
Решение
I =v*t = 25600*180= 4608000/8=576000/1024=5625