Регистрация
дашаdaria12
07.02.2023 16:32
Информатика
Есть ответ 👍

Как сделать программу которая будет складывать все числа пятизначного числа

295
296
Посмотреть ответы 2

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

Зеф3
Зеф3
4,5(98 оценок)

вероятнее всего складывать надо цифры, а не числа

 

var x,i,k: integer;

begin

readln(x);

while x> 0 do begin

i: =x mod 10;

k: =k+i;

x: =x div 10;

end;

writeln(k);

end.

artemvershinin
artemvershinin
4,4(65 оценок)
Program aaa; var a, b: real;   begin    writeln ('введите два числа');   readln (a,b);   writeln;   if a> b     then begin a: =a/2; b: =-1*b; writeln (a: 5,b: 5) end     else           if b> a           then begin b: =b/2; a: =-1*a; writeln (a: 5,b: 5) end           else writeln ('числа равны'); end. 

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