Регистрация
vauguq
16.04.2021 18:14
Информатика
Есть ответ 👍

Запишите оператор цикла фор который бы выводил все числа в диапазоне от100 до 10 включительно:

142
410
Посмотреть ответы 2

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

katerinatumasjp02dx5
katerinatumasjp02dx5
4,8(29 оценок)
Var   i : longint; begin   for i: =100 downto 10 do writeln(i); end;
ЛилияСадыкова555
ЛилияСадыкова555
4,4(73 оценок)

var

  a: 1000..9999; //четырехзначное число

  a1, a2, a3, a4: 1..9;

 

begin 

  writeln('введите четырехзначное число');

  readln(a);

  a1: = a mod 10;   //первая с конца цифра

  a2: = (a mod 100) div 10;   //вторая с конца цифра

  a3: = (a mod 1000) div 100;   //третья с конца цифра

  a4: = a div 1000;   //четвертая с конца цифра

  writeln('сумма цифр данного числа:   ', a1 + a2 + a3 + a4);   //сумма цифр

end.

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