Помогите, пожалуйста, с задачами в Паскале!!! Обе задачи решить тремя способами (for, while, repeat)
1. Вывести последовательность чисел на экран 12, 24, 36, ... , N
2. Найти сумму чисел 6, 12, 18, ... , N
1. Вывести последовательность чисел на экран 12, 24, 36, ... , N
2. Найти сумму чисел 6, 12, 18, ... , N
More Questions From This User See All
Answers & Comments
begin
writeln('Введите число n');
readln(n);
for i:=1 to n do
begin
if (i mod 12=0) then write(i,' ');
end;
end.
1.2)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 12=0) then write(i,' ');
i:=i+1;
end;
end.
1.3)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 12=0)then write(i,' ');
i:=i+1;
until (i>n);
end.
2.1)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
for i:=1 to n do
beginif (i mod 6=0)then s:=s+i;
end;
writeln('Сумма равняется ',s);
end.
2.2)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 6=0) then s:=s+i;
i:=i+1;
end;
writeln('Сумма равняется ',s);
end.
2.3)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 6=0) then s:=s+i;
i:=i+1;
until (i>n);
writeln('Сумма равняется ',s);
end.