Гирьки ограничение времени 1 секунда ограничение памяти 256mb ввод стандартный ввод или input.txt вывод - id937300120230110 от нчшрдтснь 10.01.2023 19:50

Question

Информатика: Гирьки ограничение времени 1 секунда ограничение памяти 256mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt юный нумизмат вася пытается узнать вес старинной монеты с использованием чашечных весов. у него есть 2 гирьки, весом a и b граммов. сможет ли он установить точный вес монеты, если в действительности она весит n граммов? формат ввода на вход поступают 3 целых числа в указанном порядке: a, b, n (1 ≤ a, b, n ≤ 100). формат вывода если при данных гирек возможно точно

нчшрдтснь · Accepted Answer

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.

MOGZ ответил