Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию.

В этом примере необходимо написать программу, которая будет 10 раз выводить на экран имя и фамилию (PascalABC.NET).Текст программы обычно состоит из 3 частей:

• заголовок;
• описание переменных;
• операторы.

Заголовок программы – это её имя, расположенное в самом начале кода. Пусть данная программа называется «NameSurname».Далее необходимо в блоке «Var» описать переменные, которые будут использоваться. Например, присвоим переменной i тип integer. Это значит, что i может иметь только целые значения.Если же присвоить Name и Surname тип string, то эти две переменные смогут иметь только строковые значения.

После var необходимо написать служебное слово begin (начало), а в конце кода - end (конец).

Для написания программы понадобятся следующие операторы:

• write (writeln);
• read (readln);
• for to do.

Операторы write и read

Write – это оператор вывода данных на экран. Если в коде написать write(\'Введите своё имя: \'), то на экран выскочит срока «Введите своё имя: ».Read – это оператор ввода с клавиатуры каких-либо данных.В коде строка read(Name) присваивает строковой переменной Name введенное значение.Writeln и readln – это аналог write и read с переносом курсора на новую строку.

Оператор for to do

For to do – это оператор цикла с известным числом повторений.Например, строка for i:=1 to 10 do writeln(Name, \' \', Surname) означает, что от 1 до 10 будет осуществляться вывод на экран имени и фамилии.

В итоге получаем следующую программу

Program NameSurname;Var i: integer;Name, Surname: string;BeginWrite(\'Введите своё имя: \');Readln(Name);Write(\'Введите свою фамилию: \');Readln(Surname);For i:=1 to 10 do writeln(Name, \' \', Surname);End.

var first_name, last_name : string; // где first_name — имя, а last_name — фамилия.i : integer;begincls;write (\'Введите свое имя: \');readln (first_name);write (\'Введите свою фамилию: \');readln (last_name);for i := 1 to 10 do writeln (first_name, \' \', last_name);end.