<span>html редактор, xcll редактор, и т.д.</span>
Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.
Слово осталось окончание ось,корень ост,суффикс а,л
Решение, который дал другой пользователь, слишком сложное. Я могу предложить альтернативный вариант, который будет гораздо проще в понимании.
Var a,s,s1:integer;
Begin
write('Введите число -> ');
readln(a);
s1:=1;
while a>0 do
begin
s:=s+(a mod 10);
s1:=s1*(a mod 10);
a:=a div 10;
end;
writeln('Сумма цифр числа равна -> ',s);
writeln('Произведение цифр числа равно -> ',s1);
End.
1.
а)огурец.
б) москвич.
в) тракторист.
г)школьники.
2.
а)герои из сказки Буратино.
б)сказки.
в)большие города.
г)большие реки.
д)города России.
3.
а) Джеймс Кук.
б)корень.
в)P=2(a+b)
г)Илья Муромец и Соловей разбойник.
4.
1)птица летит по воздуху. Птица сидит в гнезде.
2)мяч катится в ворота. Мяч лежит на поле.
3)велосипед едет по дороге. Велосипед стоит около магазина.