Вот! Информатика 4 класс 2 часть А.В.Горячев К.И.Горина Н.И.Сурова
Лист защищен без пароля, чтобы случайно не повредить формулы
Снимаете пароль, вводите уравнения параболы и линии.
Ставите защиту.
Сервис/подбор параметра -- находите корень изменяя выделенные клетки в середине таблицы, получаете график.
1) вводить три равных натуральных числа - треугольник равносторонний. Результат программы TRUE ⇒ программа работает корректно
2) вводить три неравных натуральных числа - треугольник не равносторонний. Результат программы FALSE ⇒ программа работает корректно
3) ввести три нуля - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
4) вводить три равных отрицательных числа - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
5) ввести три равных или неравных вещественных числа - треугольник существует. Результата программы нет (ошибка типов) ⇒ программа работает некорректно
Var
n, i, c : integer;
a : array [1..1000] of integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n div 2 do
begin
c := a[i*2];
a[i*2] := a[i*2-1];
a[i*2-1] := c;
end;
for i := 1 to n do
write (a[i], ' ');
end.
Счетные палочки или аббакус.