Задача. Найти произведение цифр четырёхзначного числа, введённого с клавиатуры.
Что нужно сделать:
- разложить в голове по полочкам про операции mod и div (обратитесь к записям в тетради или в сеть: примеры программ);
- составить блок-схему алгоритма к задаче или (смысл слова понятен?) написать программу (можно в тетради, можно в среде программирования).
Что можно сделать дома на компьютере для облегчения работы:
- скачать и установить PascalABC c офсайта (установочный файл с Microsoft .NET Framework v4.0 весит 121 Мб, можно скинуть у Наташи Б. или из школьной локальной сети) - после чего в среде можно решать данную задачу
или (смысл слова понятен?)
- скачать и работать в более лёгкой среде Algo (установка не требуется, требуется только распаковка) с сайта.
Желаю успехов завтра и всегда!
Что нужно сделать:
- разложить в голове по полочкам про операции mod и div (обратитесь к записям в тетради или в сеть: примеры программ);
- составить блок-схему алгоритма к задаче или (смысл слова понятен?) написать программу (можно в тетради, можно в среде программирования).
Что можно сделать дома на компьютере для облегчения работы:
- скачать и установить PascalABC c офсайта (установочный файл с Microsoft .NET Framework v4.0 весит 121 Мб, можно скинуть у Наташи Б. или из школьной локальной сети) - после чего в среде можно решать данную задачу
или (смысл слова понятен?)
- скачать и работать в более лёгкой среде Algo (установка не требуется, требуется только распаковка) с сайта.
Желаю успехов завтра и всегда!
program chislo;
ОтветитьУдалитьvar Z, a, b, c, d, P: integer;
begin
write ('Введите 4-хзначное число ');
readln (Z);
if (999<Z) and (Z<10000)
then
begin
d:=Z mod 10;
a:=Z div 1000;
b:=(Z-a*1000)div 100;
c:=(Z-a*1000-b*100-d)div 10;
P:=a*b*c*d;
write ('Произведение цифр: ', P)
end
else
write ('некорректный ввод')
end.
о нееееетт...
ОтветитьУдалить