var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
В приведенном фрагменте программы после начального присваивания s:=0 будет выполняться цикл. В теле цикла находятся 2 оператора - в первом операторе вычисляется значение s, во втором - вычисленное значение выводится на экран. Анализ работы цикла:
j=10, s=s+2*j=0+2*10=20, вывод на экран 20
j=11, s=20+2*11=42, вывод на экран 42
<span>j=12, s=42+2*12=66, вывод на экран 66
</span>j=13, s=66+2*13=92, вывод на экран 92
j=14, s=92+2*14=120, вывод на экран 120
<span>j=15, s=120+2*15=150, вывод на экран 150
</span>Таким образом, на экран будет выведено: 20426692120150
предлагаю писать слова наооборот.Например:(я напишу,,я отправляюсь на Марс,и прибуду в час ночи,,)так это будет выглядеть:,,ичон сач в удубрип и ,сарМ ан ьсюялварпто я,,. Удачи))
Var s,i: real;begini:=1;s:=12;if s<=100 then i:=i+1 elses:=1.2*s+2;writeln(s);<span>end.
Так попробуй</span>
1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов