Данные числа 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. 

 

 

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var a,b: integer; read(a,b);   a: =min(a,b);   (var s,var k): =(0,0);   while a> 0 do begin       b: =a mod 10;       if b.iseven then (s,k): =(s+b,k+1);       a: =a div 10       end;   if k> 0 then writeln(s/k: 0: 3)   else writeln('в меньшем числе нет четных цифр') end. пример 64372 40269 3.000

Формальное решение на случай, если ваш qbasic не распознаёт кириллицу(формальное, потому что отображаться будет правильно, но текст с кириллицей ввести не получится): dim s$, c$ cls input "bbedite text: ", s$ k = 0 s$ = lcase$(s$) for i = 1 to len(s$) c$ = mid$(s$, i, 1) if (c$ = "  ") or (c$ = "ґ") or (c$ = "ё") or (c$ = "®") or (c$ = "г") or (c$ = "л") or (c$ = "н") or (c$ = "о") or (c$ = "п") then k = k + 1 end if next i print "k = "; k end если поддерживает кириллицу: dim s$, c$ cls input "bbedite text: ", s$ k = 0 s$ = lcase$(s$) for i = 1 to len(s$) c$ = mid$(s$, i, 1) if (c$ = "а") or (c$ = "е") or (c$ = "и") or (c$ = "о") or (c$ = "у") or (c$ = "ы") or (c$ = "э") or (c$ = "ю") or (c$ = "я") then k = k + 1 end if next i print "k = "; k end