До перелива 8 0 0
1) 3 5 0
2) 3 2 3
3) 6 2 0
4) 6 0 2
5) 1 5 2
6) 1 4 3
<span>7) 4 4 0</span>
Var g1, g2, g3: real;
begin
writeln('Введи три числа: ');
readln(g1, g2, g3);
if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin
if g1 = 9.8 then Writeln('Первое - ускорение на Земле');
if g2 = 9.8 then Writeln('Второе - ускорение на Земле');
if g3 = 9.8 then Writeln('Третье - ускорение на Земле');
end;
<span>end.</span>
Цикл с заданным числом повторений (цикл-ДЛЯ)
<span>for <параметр> := <начальное значение> to <конечное значение> do <тело цикла<span>>
</span></span><span>После каждого выполнения цикла значение <</span>параметра> будет увеличиваться на 1.
№106(2 часть)
в)-конец абзаца
№107
Процэссор - Ошибочный символ(Э)
Процесссор - Лишний символ(С)
Процесор - Пропущенный символ(С)
№108
<em>1)</em>- Удаление лишнего символа, находящегося позади курсора.
<em>2)</em>- Удаление лишнего символа, находящегося впереди курсора.
<em>3)</em>-Замещение ошибочного символа, стоящего позади курсора.
<em>4) </em>-Замещение ошибочного символа, стоящего впереди курсора.