Var i,a,c,b: integer; begin c: =1; writeln('введите число'); readln(a); writeln('введите степень'); readln(b); for i: =1 to b do c: =a*c; writeln (a, ' в сепени ',b,' =',c); end.
Спасибо
Ответ дал: Гость
var
a: array[1..31] of real;
i,k: integer;
min: real;
begin
min: =50;
for i: =1 to 31 do
begin
readln(a[i]);
if a[i]< min then min: =a[i];
end;
k: =0;
for i: =1 to 31 do
if a[i]=min then k: =k+1;
writeln(k);
end.
Ответ дал: Гость
автоматизация, легкость в использовании, меньше затраты времени на обработку
Популярные вопросы