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

program n_4

var x, a, b, c, s: integer

writeln ('Нахождение суммы цифр трехзначного числа')

write (' Введите исходное число>>')

readln (x) ;

a :=x div 100;

b :=x mod 100 div 10;

c :=x mod 10;

s :=a+b+c;

writeln ('s= ' , s)

end

293

304

Посмотреть ответы 1

Ответы на вопрос:

temirhanarmy

Информатика

4,4(55 оценок)

вотвотвотвотвот❤❤❤❤❤❤❤❤❤
Задания на обработку чисел в массивах 1) В программе используется одномерный целочисленный массив A

150 000+ пользователей

Оформить подписку