- Автоматизация
- Антропология
- Археология
- Архитектура
- Биология
- Ботаника
- Бухгалтерия
- Военная наука
- Генетика
- География
- Геология
- Демография
- Деревообработка
- Журналистика
- Зоология
- Изобретательство
- Информатика
- Искусство
- История
- Кинематография
- Компьютеризация
- Косметика
- Кулинария
- Культура
- Лексикология
- Лингвистика
- Литература
- Логика
- Маркетинг
- Математика
- Материаловедение
- Медицина
- Менеджмент
- Металлургия
- Метрология
- Механика
- Музыка
- Науковедение
- Образование
- Охрана Труда
- Педагогика
- Полиграфия
- Политология
- Право
- Предпринимательство
- Приборостроение
- Программирование
- Производство
- Промышленность
- Психология
- Радиосвязь
- Религия
- Риторика
- Социология
- Спорт
- Стандартизация
- Статистика
- Строительство
- Технологии
- Торговля
- Транспорт
- Фармакология
- Физика
- Физиология
- Философия
- Финансы
- Химия
- Хозяйство
- Черчение
- Экология
- Экономика
- Электроника
- Электротехника
- Энергетика
var n, s: integer;. while s <= 35 do begin. write(n). var n, s: integer;. while s <= 256 do begin. write(n). var n, s: integer;. while s <= 365 do begin. write(n). var n, s: integer;. while s <= 365 do begin. write(n). var n, s: integer;. whil
var n, s: integer;
begin
n: = 0;
s: = 0;
while s < = 35 do begin
n: = n + 1;
s: = s + 4
end;
write(n)
end.
22) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 0;
s: = 0;
while s < = 256 do begin
s: = s + 25;
n: = n + 1
end;
write(n)
end.
23) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 0;
s: = 0;
while s < = 365 do begin
s: = s + 33;
n: = n + 5
end;
write(n)
end.
24) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 0;
s: = 0;
while s < = 365 do begin
s: = s + 36;
n: = n + 10
end;
write(n)
end.
25) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n: = 1;
s: = 0;
while s < = 365 do begin
s: = s + 36;
n: = n * 2
end;
write(n)
end.
26) Определите, что будет напечатано в результате работы следующего фрагмента программы:
program B05;
var n, s: integer;
begin
n: = 0;
s: = 1;
while s < = 1000 do begin
s: = s * 3;
n: = n + 3;
end;
write(n)
end.
27) При каком наименьшем введенном числе d после выполнения программы будет напечатано 67?
var n, s, d: integer;
begin
readln(d);
n: = 2;
s: = 0;
while s < = 365 do begin
s: = s + d;
n: = n + 5
end;
write(n)
end.
28) При каком наибольшем введенном числе d после выполнения программы будет напечатано 89?
var n, s, d: integer;
begin
readln(d);
n: = 5;
s: = 83;
while s < = 1200 do begin
s: = s + d;
n: = n + 6
end;
write(n)
end.
29) При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?
var n, s, d: integer;
begin
readln(d);
n: = 3;
s: = 57;
while s < = 1200 do begin
s: = s + d;
n: = n + 4
end;
write(n)
end.
30) При каком наибольшем введенном числе d после выполнения программы будет напечатано 150?
var n, s, d: integer;
begin
readln(d);
n: = 3;
s: = 38;
while s < = 1200 do begin
s: = s + d;
n: = n + 7
end;
write(n)
end.
31) При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?
|
|
|
© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.
|