Регистрация
Kurgan4511
02.12.2022 15:02
Информатика
Есть ответ 👍

Найти сумму чисел 4-х значного числа используя линейный алгоритм

240
392
Посмотреть ответы 2

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

NedFlanders
NedFlanders
4,8(90 оценок)
Var   n,s: longint; begin   write('введите натуральное четырехзначное число: ');   readln(n);   s: =n mod 10;   n: =n div 10;   s: =s+n mod 10;   n: =n div 10;   s: =s+n mod 10;   n: =n div 10;   s: =s+n;   writeln('сумма цифр введенного числа равна ',s) end. тестовое решение: введите натуральное четырехзначное число: 1745 сумма цифр введенного числа равна 17
СлаваБорисов123
СлаваБорисов123
4,4(36 оценок)

begin

k1: =0

k2: =0

writeln (' введите три числа');

if   x< 0 then k1: =k1+1;

if   x< 0 then k2: =k2+1; (еще " числа)

 

intil x=0;

writeln ('k1=',k1,'',k2=',k2)

end

 

 

 

я думаю наверно

Популярно: Информатика