Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Данные числа c и d являются соотвественно квадратом и кубом числа "A"
нужно составить программу , печатающее значение true, если указанное выражение является истинным, и fase в противном случае
Главное программу! Будьте добры

Ответ оставил Гость

Program KvCube;

Uses Crt;

var a,c,d:integer;

begin

     clrscr;

     write(Введите число А:);

     readln(a);

     write(Введите квадрат числа А:);

     readln(c);

     write(Введите куб числа А:);

     readln(d);

     if ((c=a*a) and (d=a*a*a)) then writeln(TRUE)

          else  writeln(FALSE); 

    readkey;

end.