Регистрация
andry92526
13.01.2023 18:44
Информатика
Есть ответ 👍

Program n_16;
var i, n: Integer; a,y:Real;
begin
WriteLn ('Возведение в степень');
Write ('введите основание a>>');
ReadLn(a);
Write ('Введите показатель n>>');
ReadLn(n);
y:=1;
for i:=1 to n do y:=y*a;
Write('y=', y)
end.
составьте троссировочную таблицу для a=2 n=8

265
447
Посмотреть ответы 1

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

HrenSGori
HrenSGori
4,4(99 оценок)
Var a,b,c,k: integer; begin readln(a,b,c); if (a+b> c)and(b+c> a)and(a+c> b) then begin writeln('треугольник существует'); k: =1 end else writeln('треугольник не существует'); if (a=b)and(a=c) and (k=1) then writeln('равносторонний'); if =b)and(a< > c))or((c=b)and(c< > a))or((c=a)and(c< > (k=1) then writeln('равнобедренный'); if (a< > b)and(c< > b)and(a< > c)and (k=1) then writeln('разносторонний') end.

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