1. Определите значение переменной S после выполнения фрагмента программы:
i:=1;
S:=1;
while i < 6 do
begin
i:= i + 2;
S:= S + i;
end;

2. Запишите значение переменной sum после выполнения фрагмента программы:
sum:=1;
for i:= 3 to 5 do sum:= sum + 2 * i;

3. Запишите результат выполнения программы:
var p, n: integer;
begin
p:= 2;
for n:= 5 dowto 3 do n:= p * n;
writeln (p);
end.

4. Сколько раз исполнится цикл?
i:= 15;
repeat
i:= i – 3;
until i > 6;

5. Напишите программу, которая в последовательности натуральных чисел определяет значение минимального, не кратного 9, элемента последовательности. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 9. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число: значение минимального элемента не кратного 9.

199

313

Посмотреть ответы 1

Ответы на вопрос:

ozilpro228

Информатика

4,7(7 оценок)

Uses crt; var s: string; i,j: byte; begin clrscr; writeln('введите строку, содержащую точки, как по 1, так и группами: '); readln(s); if (length(s)> 1)and(copy(s,1,2)='..') then{если в начале строки более 1 точки} begin {или строка вообще из точек} while (s[1]='.')and(length(s)> 0) do delete(s,1,1); insert('',s,1); end; if(length(s)> 2)and(s< > '') then{если осталось более 2 сиволов, начнем проверять с конца} begin i: =length(s)-2; while i> =1 do if (s[i]< > '.')and(copy(s,i+1,2)='..') then begin while (s[i+1]='.')and(i+1< =length(s)) do delete(s,i+1,1); insert('',s,i+1); i: =i-1; end else i: =i-1; end; write(s); readln end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.