Очень очень и очень много Задача 1
Вводятся два числа с клавиатуры. Считается их произведение. Если оно меньше 100, то результат вводиться в квадрат. в противном случае, извлекается квадратный корень
Задача 2
Дано Вещественное число А и целое число N. Используя цикл, найти сумму. 1+А^1+А^2+А^3+..+А^N
1
var a,b:integer; begin readln(a,b); writeln(2*a*b*ord(a=b)+a*b*ord(a<>b)); readln end.
Объяснение:
2
var a, s: real;
i, n: Integer;
begin
readln(n);
readln(a);
s := 1;
for i := 1 to n do
s := s-a;
a := -a*a;
end;
end;