Паскаль. Срочно. Попроще. Дано трехзначное число. Написать программу, позволяющую вывести на экран сумму его цифр.
Тут даже напрягаться не надо
ну для вас это не проблема.
халява
готово
впринципе он хоть какие числа может пересчитать
Если не жалко тыкни "спасибо". Просто я хотел испытать себя здесь как помошника в информатике, сегодня ток зарегистрировался хочется быть попопулярнее
есть еще пара задачек
давай
должно отобразиться
var
d, k: integer;
begin
write('Запишите число: ');
readln(d);
while d > 0 do
k := k + (d mod 10);
d := d div 10;
end;
writeln(k);
end.