Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для: M := 3; N := 15; получим 9 27
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим: 6 3
var i: integer;
begin
write('vvedite 4etnoye 4islo - ');
readln(i);
if ((i mod 2)=0) then
while ((i mod 2)<1) do
begin
i := i div 2;
writeln(i);
end
else
writeln('oshibla!');
readln();
end.
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var i,j: integer;
begin
i := 1;
while (i <> 0) do
begin
writeln('vvedite 4islo - ');
readln(i);
if ((i mod 2)=0) then
writeln('4etnoe 4islo - ', i)
else
writeln('ne4etnoye - ', i);
end;
writeln('poka!');
readln();
end.
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1......N}M раз
var i,j,m,n: integer;
begin
write('vvedite 4islo M - ');
readln(m);
write('vvedite 4islo N - ');
readln(n);
begin
for i := 1 to m do
begin
for j := 1 to n do
write(j, ' ' );
writeln();
end;
end;
readln();
end.
Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
8 10 два числа3 10 12 14 три числа3 16 18 20 22 четыре числа 3....3....и т.д.
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 четыре числа 3 16 18 20 22 четыре числа 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
81 0два числа3 14 16 два числа 3....3....и т.д.
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.
{С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.}
program task15_lesson13_1;
var i, j: Integer;
begin
For j:=1 to 9 do // делитель выводим во внешний цикл
Begin
For i:=1 to j*10 do
If ((i mod j) = 0) then
WriteLn(i , ' : ', j, ' = ', i div j);
WriteLn();
End;
readln;
end.
{С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:
1x1 = 1
1x2 = 2
......
}
program task14_lesson13_1;
var i, j : integer;
begin
i := 1;
while i <= 9 do
begin
for j := 1 to 9 do
writeln(i,'x',j,' = ',i*j);
writeln();
i := i + 1;
end;
readln();
end.
