М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kektuber222owf6bv
kektuber222owf6bv
30.05.2022 15:39 •  Информатика

Напишите программу возведения числа в целую степень. число и степень запрашивайте у пользователя

👇
Ответ:
Jiter
Jiter
30.05.2022

Program PR1;
uses crt;
var a,b:real;
begin
clrscr;
writeln('Vvedite chislo i stepen');
readln(a,b);
writeln(exp(a*ln(b)));
end.

4,4(81 оценок)
Ответ:
dimaburkovskiy3
dimaburkovskiy3
30.05.2022

var
a,b,i,s:integer;
begin
readln(a);
readln(b);
s:=a;

for i:=2 to b do
s:=s*a;
writeln (s);
end.

4,7(65 оценок)
Открыть все ответы
Ответ:
Marina12971
Marina12971
30.05.2022
Program ZvonPOBEDITEL;var i,n,k,i_1,i_2,d_1,d_2: integer;c: char;s,s_1,s_2: string;begin i_1:=0; i_2:=0; d_1:=1; d_2:=1; readln(n); for i:=1 to n do begin  c:='a';  s:='';  while c<>' ' do  begin   read(c);   s:=s+c;  end;  read(c);  while c<>' ' do  begin   s:=s+c;   read(c);  end;  read(c);  while c<>' ' do  begin   read(c);  end;  readln(k);  if (k=i_1) and (i<>1) then d_1:=d_1+1;  if k>i_1 then   begin   i_2:=i_1;   i_1:=k;   s_2:=s_1;   s_1:=s;   d_2:=d_1;   d_1:=1;  end;  if (k=i_2) and (i<>1) then d_2:=d_2+1;  if (k>i_2) and (k<i_1) then   begin    i_2:=k;   s_2:=s;   d_2:=1;  end; end; if (i_1<=200) and (d_1=1) then writeln(s_1); if (i_1<=200) and (d_1<>1)then writeln(d_1); if (i_1>200) and (d_2=1) then writeln(s_2); if (i_1>200) and (d_2<>1) then writeln (d_2);end. Это сугубо мое решение за копирайтинг отвешу люлей. И к тому же сдесь есть одна ошибка о которой знаю только я, так сказать один из частных случаев здесь не прощитывается, по этому поломайте голову, Ха-Ха-Ха...
4,4(16 оценок)
Ответ:
egmoisee
egmoisee
30.05.2022

19-шы ғасырда Гайслер және Крукс трубкалары секілді ауасы сорылып алынған трубкалармен тәжірибелер көп жасалды. Сондай тәжірибелермен айналысқан ғалымдардың ішінде Ойген Гольдштейн, Никола Тесла, Йоһанн Вильһельм Һитторф, Томас Эдисон және басқаларды атауға болады. Электр шамын санамағанда ғалымдар өз тәжірибелерінде қолданған трубкалардың практикалық маңызы шамалы еді. Бірақ сол ғалымдар мен өнертапқыштар жүргізген зерттеулердің арқасында электрон лампылар технологиясының пайда болуына керекті көп мәліметтер жиналды.

4,7(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ