Вопрос по информатике:
Информатика 7 класс.Циклы.
С помощью цикла N раз вывести четные числа до 50
Пожаловаться
- 27.09.2017 18:22
- Информатика
- remove_red_eye 2415
- thumb_up 40
Ответы и объяснения 2
1. Примерно вот так почему-то учат писать в школе...
program Schoolar;
var
i,j,n:integer;
begin
Write('n = '); Readln(n);
for i:=1 to n do begin
for j:=1 to 50 do
if j mod 2 = 0 then Write(j,' ');
Writeln
end
end.
Пример
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2. Примерно вот так рекомендуют делать эту задачу современные концепции программирования...
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop ReadInteger('n =') do Range(2,50,2).Println
end.
Результат
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
program Schoolar;
var
i,j,n:integer;
begin
Write('n = '); Readln(n);
for i:=1 to n do begin
for j:=1 to 50 do
if j mod 2 = 0 then Write(j,' ');
Writeln
end
end.
Пример
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2. Примерно вот так рекомендуют делать эту задачу современные концепции программирования...
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop ReadInteger('n =') do Range(2,50,2).Println
end.
Результат
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
Пожаловаться
- 28.09.2017 18:50
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы