IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> помогите, пожалуйста, с паскаля на Qбейсик перевести!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Женский
Реальное имя: мария

Репутация: -  0  +


var A:array [1..10] of integer;
s,k,i,p:integer;
begin
p:=1;
A[1]:=1;
for i:=2 to 10 do
begin
p:=p*i;
A[i]:=p;
end;
for i:=1 to 10 do
writeln ('a[',i,']=',a[i]);
writeln('Введите k');
readln(k);
s:=0;
for i:=1 to 10 do
begin
s:=s+A[i];
if s>k then break;
end;
if s>k then writeln('минимальное количество элементов массива сумма которых больше ',k,' = ',i)
else writeln ('В массиве нет таких элементов');
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.09.2019 15:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name