- Автоматизация
- Антропология
- Археология
- Архитектура
- Биология
- Ботаника
- Бухгалтерия
- Военная наука
- Генетика
- География
- Геология
- Демография
- Деревообработка
- Журналистика
- Зоология
- Изобретательство
- Информатика
- Искусство
- История
- Кинематография
- Компьютеризация
- Косметика
- Кулинария
- Культура
- Лексикология
- Лингвистика
- Литература
- Логика
- Маркетинг
- Математика
- Материаловедение
- Медицина
- Менеджмент
- Металлургия
- Метрология
- Механика
- Музыка
- Науковедение
- Образование
- Охрана Труда
- Педагогика
- Полиграфия
- Политология
- Право
- Предпринимательство
- Приборостроение
- Программирование
- Производство
- Промышленность
- Психология
- Радиосвязь
- Религия
- Риторика
- Социология
- Спорт
- Стандартизация
- Статистика
- Строительство
- Технологии
- Торговля
- Транспорт
- Фармакология
- Физика
- Физиология
- Философия
- Финансы
- Химия
- Хозяйство
- Черчение
- Экология
- Экономика
- Электроника
- Электротехника
- Энергетика
var n, s: integer;. while n <= 7 do begin. write(s). var n, s: integer;. while n <= 8 do begin. write(s). var n, s: integer;. while n <= 13 do begin. write(s). var n, s: integer;. while n <= 20 do begin. write(s). var n, s: integer;. while n &
var n, s: integer;
begin
n: = 3;
s: = 0;
while n < = 7 do begin
s: = s + n;
n: = n + 1
end;
write(s)
end.
12) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 4;
s: = 0;
while n < = 8 do begin
s: = s + n;
n: = n + 1
end;
write(s)
end.
13) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 4;
s: = 0;
while n < = 13 do begin
s: = s + 15;
n: = n + 1
end;
write(s)
end.
14) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 1;
s: = 0;
while n < = 20 do begin
s: = s + 33;
n: = n + 1
end;
write(s)
end.
15) (http: //ege. yandex. ru) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 1;
s: = 0;
while n < = 101 do begin
s: = s + 7;
n: = n + 1
end;
write(s)
end.
16) (http: //ege. yandex. ru) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 0;
s: = 512;
while s > = 0 do begin
s: = s - 20;
n: = n + 1
end;
write(n)
end.
17) (http: //ege. yandex. ru) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 24;
s: = 0;
while n < = 28 do begin
s: = s + 20;
n: = n + 2
end;
write(s)
end.
18) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 12;
s: = 5;
while n < = 25 do begin
s: = s + 12;
n: = n + 2
end;
write(s)
end.
19) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 2;
s: = 35;
while n < = 25 do begin
s: = s + 20;
n: = n + 5
end;
write(s)
end.
20) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 4;
s: = 15;
while s < = 250 do begin
s: = s + 12;
n: = n + 2
end;
write(n)
end.
21) Определите, что будет напечатано в результате работы следующего фрагмента программы:
|
|
|
© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.
|