Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Зона с охватом Wi-Fi ну как то так
1.Составление фоторобота по словесному описанию.
Дано словесное описание. Значит когда составляется фоторобот идет работа над описанием, фактический, это действие над информацией которая дана.
2. Передача смс сообщения. В нем так же работаю с информацией. Для того что бы передать сообщение, для начала нужно его составить. Значит будет проведена работа с информацией. Фактический среди действий с информацией есть такое как передача.
Зимой и летом одним цветом
Var n:string;k,i:integer;beginreadln(n);k:=length(n);if k=3 then writeln('yes') else writeln('no');end.