<span><span /></span>
<span><span><span><span>
Дни
</span><span>
Высота (см)
</span></span><span><span>
Первый
</span><span>
- 180
</span></span><span><span>Второй
- </span><span> 182
</span></span><span><span>
Третий
</span><span>
- 184
</span></span><span><span>
Четвертый
</span><span>
- 186
</span></span><span><span>
Пятый
</span><span>
- 188
</span></span><span><span>
Шестой
</span><span>
- 190
</span></span><span><span>
Седьмой </span><span>- 192
</span></span></span></span>
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>
Да.
13€R, потому оно является выражениям высказывания.
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы диапазона: '); Read(a,b);
if b<a then Swap(a,b);
Range(a,b).Where(x->x mod 7=0).Println
end.
<u>Пример</u>
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63