Написать программу, которая n раз выводит на экран слова : Привет, друг!
Answers & Comments
pacixor
//Pascal var n, i: integer; begin write('Введите n: '); readln(n); for i := 1 to n do writeln('Привет, друг!'); readln; end.
5 votes Thanks 13
dimochka3777
Зачем последний "readln;"? Без него норм
dimochka3777
А, я же на АБС, у меня не сразу все вылетает)
dimochka3777
//Pascal var //Объявление переменных n, i: integer; //Объявляем переменные n - количество повторов и i - счетчик для цикла begin //Открытие логических скобок write('Введите n: '); //Выводит текст на монитор 'Введите n: ' readln(n); //запрашивает ввод с клавиатуры и заносит значение в переменную n for i := 1 to n do //Цикл от 1 до числа n writeln('Привет, друг!'); //С каждым шагом цикла выводится сообщение 'Привет, друг!' readln; //ожидание нажатия Enther после выполнения программы end.
Answers & Comments
var
n, i: integer;
begin
write('Введите n: '); readln(n);
for i := 1 to n do
writeln('Привет, друг!');
readln;
end.
var //Объявление переменных
n, i: integer; //Объявляем переменные n - количество повторов и i - счетчик для цикла
begin //Открытие логических скобок
write('Введите n: '); //Выводит текст на монитор 'Введите n: '
readln(n); //запрашивает ввод с клавиатуры и заносит значение в переменную n
for i := 1 to n do //Цикл от 1 до числа n
writeln('Привет, друг!'); //С каждым шагом цикла выводится сообщение 'Привет, друг!'
readln; //ожидание нажатия Enther после выполнения программы
end.