3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
(Start)
Кто пришел?
Если Саша то - играть в хоккей,
Если Наташа то - идти в кино
Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
1.Берешь ведро
2.набираешь воду
3.ставишь ведро на место
4.Берешь удочку
5.насаживаешь наживку на крючок
6.забрасываешь в воду удочку
7.ждешь пока рыба клюнет
8.когда рыба клюнет - подсекаешь
9.берешь рыбу в руки
10.снимаешь с крючка
11.бросаешь в ведро
и все начинаешь заново с 4 пункта