1)
var
com,i:integer;
begin
for i:= 1 to 101 do
if i mod 2 = 1 then
com:= com + i * i+1;
Writeln(com);
end.
Результат:
176902
2)
var
sum, x:Real;
begin
while x < 100 do begin
sum := sum + x;
x:= x+ 0.5
end;
Writeln(sum);
end.
Результат:
9950
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число(); Вывод.Цепь("^");
ЕСЛИ
число ДЕЛИТЬ 1000 < число ДЕЛИТЬ 100 ОСТАТОК 10 И
число ДЕЛИТЬ 100 ОСТАТОК 10 < число ДЕЛИТЬ 10 ОСТАТОК 10 И
число ДЕЛИТЬ 10 ОСТАТОК 10 < число ОСТАТОК 10
ТО
Вывод.Цепь("труе")
ИНАЧЕ
Вывод.Цепь("фалсе")
КОН
КОН Задание.
1. вкус
2. обоняние
3. зрение
4.осязание
5.обоняние + зрение
6.осязание
350 килобайт - 0,35 Мегабайт
1,44Мб+0,35Мб=1,475Мб