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

 
 Ответить  Открыть новую тему 
> помогите, пожалуйста, с паскаля на Qбейсик перевести!
mashakasha
сообщение 28.11.2012 17:54
Сообщение #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 
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 28.03.2024 21:45
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"