Найти сумму цифр трёхзначного числа

@goshka 2 godika · Регистрация: 13.01.2021

Author24 — интернет-сервис помощи студентам

Напишите пожалуйста программу на паскале, начальным языком

Задание:

Составить программу, находящую сумму цифр трёхзначного числа.

Вводные данные (Sample Input):
374

Вывод (Sample Output):
14

Добавлено через 2 минуты

Pascal

Var  a,b,c,d: integer; 
 
begin
write (‘ ‘);
readln (a);
b:=a div 100;
c:=(a div 10) mod 10;
d:=a mod 10;
writeln(b, ‘+’, c, ‘+’, d, ‘=’, b+c+d);
end

Вот что я написал. Как сделать так, чтобы число не надо было вводить, то есть оно автоматически было введено

@canadamoscow · 19.02.2021, 01:04

readln(a);

заменить на

a := 100+Random(900);
writeln(a);

@canadamoscow 1178 / 429 / 194 Регистрация: 23.03.2020 Сообщений: 1,016 Записей в блоге: 1
	19.02.2021, 01:04	2
	readln(a); заменить на a := 100+Random(900); writeln(a); 0