Программирование на языке Pascal - ФОРУМ |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Программирование на языке Pascal - ФОРУМ » Задачи по программированию » Программа графического изображения
Помогите, пожалуйста мне с такой задачкой: Составить программу (вложенные циклы) для графического изображения делимости чисел от 1 до N. В каждой строчке надо писать число и столько плюсов, сколько делителей у этого числа.
Например, n = 6:
1+
2++
3++
4+++
5++
6++++
Вроде бы так:
var
N:integer;
i,j:integer;
begin
Writeln('Введите N: ');
readln(N);
writeln;
for i:=1 to n do
begin
write(I);
for j:=1 to i do
if I mod J = 0 then
write('+');
writeln;
end;
readln;
end.Помогите нарисовать мельницу с вращающимися крыльями(как то так)!
Вы здесь » Программирование на языке Pascal - ФОРУМ » Задачи по программированию » Программа графического изображения
|
|