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.02.2018 19:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"