Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
strateg1hawk
2 / 2 / 4
Регистрация: 22.11.2012
Сообщений: 19
1

Обчислить произведения элементов, которые не превышают заданое число (exitcode 201)

22.11.2012, 00:55. Просмотров 350. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var m:array[1..10] of integer; a,k,d,i:integer;
begin
randomize;
clrscr;
d:=1; k:=1;
 write('vvedit A: '); readln(a);
 for i:=1 to 10 do begin
 m[i]:=random(21);
 d:=d*m[i];
 if d<a then k:=d
 end;
 writeln('dobytok: ',k);
 readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2012, 00:55
Ответы с готовыми решениями:

Exitcode 201
В Общем нужно отсортировать , упорядочно сортирует , обратно нет не пойму чему...

Exitcode 201
Добрый день, форумчане. Есть код Соре,я даун скопировать с фрипаскаля не могу,...

Exitcode 201
наверно уже избитая тема(сорри если уже было что то похожее). Не могли бы вы...

Exited with exitcode=201
Подскажите почему программа не работает? Выдаёт &quot;exited with&quot; ...

Error exitcode =201
program EncryptDecrypt; uses crt; type menu1=array of string; var ...

1
orange_rush
140 / 146 / 116
Регистрация: 15.11.2012
Сообщений: 529
Записей в блоге: 2
22.11.2012, 08:54 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
 var m:array[1..10] of integer;
 a,i:integer; d:=longint;
 begin
 randomize;
 clrscr;
 d:=1;
 writeln('vvedit A: '); readln(a);
 write('massiv: ');
 for i:=1 to 10 do begin
        m[i]:=random(21);
        write(m[i],' ');
        if m[i]<=a then d:=d*m[i];
 end;
 writeln('dobytok: ',d);
 readln;
 end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2012, 08:54

Exited with exitcode = 201
Program laba8; uses crt; type zap=record name,film:string; ...

Ошибка exitcode 201
Добрый день. Прошу помощи. Есть программа program simplecs; type mas=array...

Exited with exitcode=201
подскажите что не правильно,компилирует без ошибок,но при запуске,когда я ввожу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru