Написать программку , которая n раз выводит на экран на

// 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

Золотинов Владимир · Answer 2 · 2019-07-31 04:56:16+3:00

Золотинов Владимир 2019-07-31 04:56:16

Var first_name, data : string;i : byte; n : integer;
begin write('Введи свое имя и фамилию: '); readln(first_name); write('Водите свою дату ррождения: '); readln(data); readln(n); for i := 1 to n do write(first_name, ' '); writeln(' '); for i := 1 to n do write(data, ' ');end.

Forostova Veronika 2019-07-31 05:15:24

Немножко не так, но спасибо)

Никита Лябин 2019-07-31 05:21:16

Я не особо проф по паскалю. Есть излишние строчки и код вероятно можно было бы и сократить, но лавное, что работает C:

Орендарчук Инна 2019-07-31 05:26:09

Работает не совсем ошибочно

Pomorceva Zhenja 2019-07-31 05:31:17

в каком месте?

Хотунцев Тимур 2019-07-31 05:38:41

Нет кол-ва раз у вас в программке

Василий Жеухин 2019-07-31 05:46:51

n же

Валерий Стебельцов 2019-07-31 05:52:32

В Паскале не работает это

Анастасия 2019-07-31 05:55:59

у меня все работает. Я же проверил перед тем как отправить...

Живкович Валерия 2019-07-31 05:57:26

Да? Удивительно?

Арсений Дверницкий 2019-07-31 06:07:26

Удивительно.

О проекте

Написать программку , которая n раз выводит на экран на

Добро пожаловать!