Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
Цифровые носители информации - компакт-диски, дискета, карты памяти
1) винчестер
2) джойстик
3) клавиатура
4) монитоо
5) дисковод
6) дисплей
7) плоттер
8) принтер
9) модем
10) дигитайзер
11) сканер
12) процессор
13) мышь
14) трекбол
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
9)вообще когда считал,получалось 128 бит,но увы там в ответе биты,значит самое оптимальное 64 бит,ответ Б
10) ответ 6,не буду расписывать,слишком долго,там из 25 вычитаешь 13 = 12 и из 12 по условию задачи бежишь