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

@romera · Регистрация: 02.06.2011

Студворк — интернет-сервис помощи студентам

@lamed · 16.06.2011, 16:46

Pascal

var
  fm, im: string;
  i: integer;
begin
  readln(fm,im);
  for i:= 1 to 10 do
    writeln(im, ' ', fm);
  readln;
end.

@DimanRu · 16.06.2011, 16:53

Program DimanRu;
Var name, surname: string;
i:integer;
Begin;
Writeln('Введите имя...');
Readln(name);
Writeln('Введите фамилию...');
Readln(surname);
FOR i:=1 TO 10 DO
Begin;
Writeln(surname, name);
End;
End.

@romera 61 / 61 / 2 Регистрация: 02.06.2011 Сообщений: 86
		1
	Написать программу, которая 10 раз выводит на экран имя и фамилию. 16.06.2011, 16:44. Показов 109531. Ответов 2 Метки нет (Все метки) Написать программу, которая 10 раз выводит на экран имя и фамилию. 1

@DimanRu 719 / 710 / 168 Регистрация: 15.06.2011 Сообщений: 1,704
	16.06.2011, 16:53	3
	Program DimanRu; Var name, surname: string; i:integer; Begin; Writeln('Введите имя...'); Readln(name); Writeln('Введите фамилию...'); Readln(surname); FOR i:=1 TO 10 DO Begin; Writeln(surname, name); End; End. 1

Опции темы

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

Решение