Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 16.05.2012, 18:45   #1
Саша513
Новичок
 
Регистрация: 16.05.2012
Сообщений: 2
Репутация: 7
По умолчанию Задані цілі числа від 1 до 100.Надрукувати в порядку зростання усі числа що можна подати у вигляді 7*i*j+j+3, де i,j - цілі числа.

Задані цілі числа від 1 до 100.Надрукувати в порядку зростання усі числа що можна подати у вигляді 7*i*j+j+3, де i,j - цілі числа.

ПОМОГИТЕ НА ЗАВТРА НАДА!!!!!

Множини


program lab8;
uses crt;
var mn: set of 1..100;
ch,g,i,j,k,tmp: byte;
s:char;
mas: array [1..100] of byte;
begin
clrscr;
writeln('continue [y,n]');
repeat
write('ch - ');
readln(ch);
include(mn,ch);
s:=readkey
until s='n';
writeln('rezult:');
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
g:=7*i*j+j+3;
if g in mn then begin
k:=k+1;
mas[k]:=g;
end;
end;

for i:=1 to k do
for j:=1 to k do
if mas[i] < mas[j] then
begin
tmp:=mas[i];
mas[i]:=mas[j];
mas[j]:=tmp;
end;

for i:= 1 to k do
if i=k then write(mas[i],'.')
else write(mas[i],', ');

readkey;
end.


не знаю што не так((

Последний раз редактировалось Саша513; 16.05.2012 в 19:11.
Саша513 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VisualBasic.Исключить из числа цифры, стоящие между первой и последней цифрой числа. ride013 Помощь студентам 0 03.05.2011 21:20
Даны натуральные числа n и m. Получить сумму m последних цифр числа n pahanzona Microsoft Office Excel 11 27.02.2011 03:17
Вычислить:у=а*(в*в*в)*с,где а,в,с-двоичные числа.Для хранения числа использ.массив! Таняпервокурсница Помощь студентам 4 04.06.2010 12:08
Числа от 1 до 100 и обратно Винни пух JavaScript, Ajax 6 05.05.2009 17:22
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль 3 23.03.2008 22:49


09:55.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru