Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18
1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1
Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведите сообщение об ошибке. Также пользователь вводит второе число M, которое отвечает за длину возрастающего фрагмента.
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат: 8 10 3 12 14 3 16 18 3 20
Какое высшее образование лучше в преспективе для программиста - прикладное или фундаментальное? Что разумнее учить в ВУЗе - физику или изучать языки программирования/писать код "как на работе"?
Ответьте в нескольких предложениях
Перечислите основные качества программиста, которые полезны в работе (на ваш взгляд). Кратко прокомментируйте почему они важны
Какое качество программиста можно назвать главным, если брать ежедневную работу? Почему?
Ответьте в нескольких предложениях
С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.
var a,b:integer;
begin
a:=1;
repeat
b:=1;
while (b<=9) do
begin
writeln (a,':',b,'=',a div b,' ');
b+=1;
end;
writeln();
a+=1;
until a>9;
readln();
end.
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;
Получим:
9
27
Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6
3
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var a:integer;
begin
repeat
writeln ('vvedite chislo');
readln(a);
if (a mod 2)=0 then
writeln('chetnoe')
else writeln(' ne chetnoe');
until a=0;
readln();
end.