Var
a, b, c : real;
begin
read (a, b, c);
if (a = b) xor (b = c) xor (a = c) then // если только одно из равенств верно
write (sqr (a), ' ', sqr (b), ' ', sqr (c))
else write (a, ' ', b, ' ', c);
end.
Я надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
<span>end.</span>
Решение на фотографии.Все очень просто если знать математику
<span> Если число оканчивается цифрой 0, то оно делится на 5. Известно, что данное число не делится на 5. Следовательно это число оканчивается на любое число,которое не оканчивается на 5 и 0</span>