Дана программа, работающая с парами чисел a и b. Программист запускал ее на выполнение 6 раз на следующих наборах входных значений: (2, 2); (3, 3); (7, -12); (-13, 8); (2, 12); (-10, -13). Сколько раз результатом выполнения программы будет слово «Квадрат»? Алгоритмический язык Язык программирования Паскаль
Алг
нач цел a, b, y
ввод a,b
если (a > 0) and (b mod 2 = 0) то
y:= Sqr(a + b)
вывод 'Квадрат'
иначе
y:= 2 * a * b
вывод 'Произведение'
все
вывод 'y=', y
кон Var a, b, y: integer;
Begin
Readln(a, b);
If (a > 0) and (b mod 2 = 0) Then
begin
y:= Sqr(a + b);
writeln ('Квадрат');
end Else
begin
y:= 2 * a * b;
Writeln('Произведение');
end ;
Writeln('y=', y);
End.
