Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.
1) 11-2=9 9-2=7 7-2=5 5*3=15 15-2=13
ответ: 11121
2) а)1317 (сумма старших разрядов 3+2+8=13, сумма младших разрядов 1+9+7=17)
б)1114 (сумма старших разрядов 1+8+5=14, сумма младших разрядов 3+2+6=11)
3) а) История любви б) Яша юркнул в эллинг
Ввод: x ^ y С/П.
П1 -> П0 x=0 07 0 С/П ИП1 x=0 12 0 С/П
ИП1 x>=0 22 ИП0 x>=0 20 1 С/П 2 С/П
ИП0 x<0 27 3 С/П 4 С/П
С учётом моментов, когда точки лежат на осях.
Закрываем крышку , нажимаем кнопку включения , набор воды и порошка в барабан , раскрутка барабана , отжим , ну (можно добавить
выключить)