сервис вопросов и ответовVar k,s Integer
10-11 класс|
|
begin
s:=0
k:=0
while s<66 do begin
k:=k+3
s:=s+k
end
write(k)
end
Rogdestvenska
11 окт. 2016 г., 1:21:17 (7 лет назад)
Jiiik3
11 окт. 2016 г., 4:01:41 (7 лет назад)
2282228228 ddadadadadadadada
Levaa1
11 окт. 2016 г., 9:15:27 (7 лет назад)
Совет: не учите паскаль, он нафиг не нужен. Можно учить PHP, он такой же лёгкий
Ответить
Другие вопросы из категории
Помогите пожалуйста!! Какое из слов лишнее и кратко объяснить почему?
начиная с 23задания и до конца
шифр Виженера.
Используя в качестве ключевого слово ВАГОН,закодируйте слова:АЛГОРИТМ,ПРАВИЛА,ИНФОРМАЦИЯ
Помогите,пожалуйста, очень срочно!!! Нужно составить блок-схему к задаче. Задача. Каждый день Поль получает карманные деньги
на мелкие расходы.Из них он тратит 30 пенсов на сладости.Это составляет 1/4 часть того,что он покупает ежедневно.Поль сберегает 1/3 того,что остается после покупки сладостей.
Читайте также
Var x,y:integer;
function nod(x:integer):Longint;
begin
if x=0 then nod:=1
else nod:=nod(x-1)*x
поясните последние две строчки плз
Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=3; k:=1;
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
15. Определите
результат выполнения программы:
var
i, sum: integer;
Почему на этапе ввода последней ступени (т.е. задали х=5 и вводим 5 ступень) паскаль выкидывает ошибку: "Индекс находился вне границ массива", ведь al[x]
это его последний элемент, разве нет?
Код:
program s1;
var x, i:integer;
al, tl: array of real;
begin
writeln ('Введите количество ступеней ракеты'); read (x);
setlength (al, x);
setlength (tl, x);
for i:=1 to x do begin
writeln ('Введите ускорение ', i, ' ступени'); read (al[i]);
writeln ('Введите время работы ', i, ' ступени'); read (tl[i]);
end;
end.
P.S.: Переписать массив в статический не предлагать, нужен именно переменной длины. Заранее спасибо.
Вы находитесь на странице вопроса "Var k,s Integer", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.