Очень очень и очень много Задача 1 Вводятся два - вопрос №176472981 от аььарпашишки 19.07.2022 10:57

Question

Информатика: Очень очень и очень много Задача 1 Вводятся два числа с клавиатуры. Считается их произведение. Если оно меньше 100, то результат вводиться в квадрат. в противном случае, извлекается квадратный корень Задача 2 Дано Вещественное число А и целое число N. Используя цикл, найти сумму. 1+А^1+А^2+А^3+..+А^N

аььарпашишки · Answer

1var a,b:integer; begin readln(a,b); writeln(2*a*b*ord(a=b)+a*b*ord(a b)); readln end.Объяснение:2var a, s: real;i, n: Integer;beginreadln(n);readln(a);s := 1;for i := 1 to n dos := s-a;a := -a*a;end;end;...