Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
<span>End.</span>
Ответ:
как то вот так
Объяснение:
в первом ничего т.к. они не используют ничего
ты ток аккуратнее нарисуй
// PascalABC.NET 3.0, сборка 1128
begin
var s:='Это наша тестовая строка ищем слова из четырех букв.';
Copy(s,1,s.IndexOf('.')).ToWords.Where(x->x.Length=4).Println
end.
<u><em>Тестовое решение:</em></u>
наша ищем букв
Решение с помощью таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.
Vit*.txt
Неужели так сложно?