Построить множество, включающее общие кратные двух чисел A и B с диапазона 1, ., 255

@Ramil_Safarov · Регистрация: 08.02.2014

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

Помогите с задачкой пожалуйста)
С использованием множества.

Построить множество, включающее общие кратные двух чисел A и B с диапазона 1, ..., 255.

@FedorBoom · 13.03.2014, 21:30

Рамиль, давай так: я тебе задачку, ты мне банку колы за пятерку.

Pascal

var i,a,b: integer;
    zim: set of byte;
 begin
  write('Ââåäèòå À --> '); readln(a);
  write('Ââåäèòå Â --> '); readln(b);
  kr:=[];
 
  for i:= 1 to 255 do
    if (i mod a=0) AND (i mod b=0) then zim:=zim+[i];
 
  for i:= 1 to 255 do
    if (i in zim) then write(i,' ');
 
  writeln;
 end.

@APALoff · 14.03.2014, 15:20

Сообщение от FedorBoom

я тебе задачку, ты мне банку колы за пятерку

Пятерка отменяется:

Неизвестное имя 'kr'

11,12 строки заменить на foreach ...

@volvo · 14.03.2014, 15:22

Сообщение от APALoff

11,12 строки заменить на foreach ...

11 и 12 строки можно вообще заменить на writeln(zim), PABC.NET прекрасно умеет выводить множества...

@FedorBoom · 14.03.2014, 17:39

Просто переменную перепутал. Я принципиально работаю во FPC.

Pascal

var i,a,b: integer;
    zim: set of byte;
 begin
  write('Введите А --> '); readln(a);
  write('Введите В --> '); readln(b);
  zim:=[];
 
  for i:= 1 to 255 do
    if (i mod a=0) AND (i mod b=0) then zim:=zim+[i];
 
  for i:= 1 to 255 do
    if (i in zim) then write(i,' ');
 
  writeln;
 end.

@APALoff · 14.03.2014, 18:13

Сообщение от FedorBoom

Я принципиально работаю во FPC.

Обратите внимание: Данная тема находится в разделе PascalABC.NET !

@Ramil_Safarov 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 12
		1
	Построить множество, включающее общие кратные двух чисел A и B с диапазона 1, ., 255 13.03.2014, 15:45. Показов 833. Ответов 5 Метки нет (Все метки) Помогите с задачкой пожалуйста) С использованием множества. Построить множество, включающее общие кратные двух чисел A и B с диапазона 1, ..., 255. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	14.03.2014, 15:20	3
	Сообщение от FedorBoom я тебе задачку, ты мне банку колы за пятерку Пятерка отменяется: Неизвестное имя 'kr' 11,12 строки заменить на foreach ... 0

@volvo Супер-модератор 32836 / 21173 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	14.03.2014, 15:22	4
	Сообщение от APALoff 11,12 строки заменить на foreach ... 11 и 12 строки можно вообще заменить на writeln(zim), PABC.NET прекрасно умеет выводить множества... 1

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	14.03.2014, 18:13	6
	Сообщение от FedorBoom Я принципиально работаю во FPC. Обратите внимание: Данная тема находится в разделе PascalABC.NET ! 1