Регистрация
EkaterinaZeyb
25.07.2020 17:34
Информатика
Есть ответ 👍

ИНФОРМАТИКА 8 КЛАСС

Интересует во знания 8 класс.
(Если что, вот сама программа, чтобы вам не переписывать program 000;
var i,n:integer; a,y:real;
begin
writeln('Возведедение в степень');
writeln('Введите основания a>>');
readln (a);
write('Введите основания n>>');
readln (n);
y:=1;
for i:=1 to n do y:=y*a;
writeln('y =', y);
end.)

133
449
Посмотреть ответы 1

Ответы на вопрос:

zherukova00
zherukova00
4,6(56 оценок)
Var a,b: real; begin readln(a,b); a: =sqr(a); b: =sqr(b); if a > b then write('n=1') else write('n=2'); end.

Популярно: Информатика