Регистрация
HeLLDeViLL
04.11.2020 23:24
Информатика
Есть ответ 👍

С: дано четырёхзначное число,вывести на экран кубы цифр этого числа(pascal). заранее огромное .

253
256
Посмотреть ответы 2

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

kucm14
kucm14
4,7(3 оценок)
Var a, b, i : integer;           s : string; begin        readln (a);         while a> 0 do        begin       b: =a mod 10;       a: =a div 10;       write (b*b*b, ' ');     end; end.
Марьяна200413
Марьяна200413
4,6(11 оценок)

program zamena;

uses crt;

var c: char;

begin

      clrscr;  

      write('введите символ: ');

      readln(c);    

 

      case c of

          'a','a', 'e','e', 'i','i' 'o','o' 'u','u',' y','y': writeln('! ');

          'b','b',c,'c','d','d','f','f','g','g','h','h','j','j',k,'k','l','l','m','m', 'n','n' 'p','p','q','q','r','r','s','s' ,'t','t','v','v','w','w' ,'x','x', 'z','z':   writeln('? ');

      '0'..'9': writeln(': ');    

              else writeln('*');

 

      end;  

 

  readkey;

  end. 

 

 

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