генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры

@azazellka666 · Регистрация: 04.05.2011

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

генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры.

@BumerangSP · 03.06.2012, 12:59

Pascal

var a,n,i: integer;
begin
 randomize;
 write('n: ');
 readln(n);
 for i:=1 to n do
  begin
   a:=random(8999)+1000;
   if a mod 10 = a div 1000 then
    write(a,' ');
  end;  
end.

@azazellka666 0 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 33
		1
	генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры 03.06.2012, 12:24. Показов 3740. Ответов 1 Метки нет (Все метки) генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры. 0

Опции темы

генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры

Решение