Написать программу , которая n раз выводит на экран на одной строке имя и фамилию, на другой строке дату рождения. Надо сравнить.
Answers & Comments
vardanpogosynozh1m3// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите имя и фамилию:'); var g:=ReadlnString('Введите год рождения:'); var n:=ReadInteger('Сколько раз повторить вывод?'); loop n do Writeln(s,NewLine,g) end.
Пример Введите имя и фамилию: Иванов Сергей Введите год рождения: 24.06.2001 Сколько раз повторить вывод? 3 Иванов Сергей 24.06.2001 Иванов Сергей 24.06.2001 Иванов Сергей 24.06.2001
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите имя и фамилию:');
var g:=ReadlnString('Введите год рождения:');
var n:=ReadInteger('Сколько раз повторить вывод?');
loop n do Writeln(s,NewLine,g)
end.
Пример
Введите имя и фамилию: Иванов Сергей
Введите год рождения: 24.06.2001
Сколько раз повторить вывод? 3
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001