Question

Составить программу для нахождения цифр четырехзначного числа Program n_221; var a, b, c, d, abcd: longint; что дальше??? Помогите плиз

Answer 1

Var a,n : integer;
begin
readln(a); 
 while a > 0 do 
 begin 
n:= a mod 10; 
a:= a div 10;
writeln(n) 
end;
end.

Answer 2

Я могу помочь вам с составлением программы для нахождения цифр четырехзначного числа. Вот несколько шагов, которые вы можете следовать:

- Объявите переменные a, b, c, d, abcd типа longint. - Считайте значение abcd с клавиатуры или задайте его в коде. - Используйте операцию деления нацело (//) и остатка от деления (%) для получения каждой цифры числа abcd. Например, a = abcd // 1000, b = (abcd // 100) % 10, c = (abcd // 10) % 10, d = abcd % 10. - Выведите значения a, b, c, d на экран или в файл.

Вот пример кода на языке Pascal, который реализует эти шаги:

Program n_221;
var a, b, c, d, abcd: longint;
begin
  abcd := 1234; // или readln(abcd);
  a := abcd // 1000;
  b := (abcd // 100) % 10;
  c := (abcd // 10) % 10;
  d := abcd % 10;
  writeln(a, ' ', b, ' ', c, ' ', d); // или write(a, ' ', b, ' ', c, ' ', d);
end.

Вы можете найти больше информации о целочисленной арифметике и языке Pascal в этих источниках:

- [Целочисленная арифметика. Часть 2 — Шаг 15 — Stepik](https://stepik.org/lesson/284816/step/15) - [Найти произведение цифр четырехзначного числа - Python - Киберфорум](https://www.cyberforum.ru/python-beginners/thread2082289.html) - [python - Нахождение цифр четырёхзначного числа - Stack Overflow на русском](https://ru.stackoverflow.com/questions/1155369/%d0%9d%d0%b0%d1%85%d0%be%d0%b6%d0%b4%d0%b5%d0%bd%d0%b8%d0%b5-%d1%86%d0%b8%d1%84%d1%80-%d1%87%d0%b5%d1%82%d1%8b%d1%80%d1%91%d1%85%d0%b7%d0%bd%d0%b0%d1%87%d0%bd%d0%be%d0%b3%d0%be-%d1%87%d0%b8%d1%81%d0%bb%d0%b0)

Надеюсь, это вам поможет. Удачи!