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

uses crt; var a,s: integer; begin clrscr; repeatwrite('введите трехзначное число a='); readln(a); until(a> =100)and(a< =999); s: =0; while a> 0do   begin   s: =s+sqr(a mod10)*(a mod10);   a: =a div10;   end; if a*a=s*s*s thenwrite('квадрат числа=сумме кубов его цифр')elsewrite('квадрат числа< > сумме кубов его цифр'); readlnend.

 

самое легкое что я придумал

< ! doctype html> < html> < head> < meta chrset="utf-8"> < title> my webpage< /title> < style>             p { text-indent: 25px; }     .p1{font-family: tahoma; /* имя шрифта  */           font-size: 15px; /* размер шрифта  */           color: #ff00ff;   /* цвет шрифта  */          text-align: right;   /* выравнивание  */           } /* каждому новому параграфу присваивай класс p2, p3 и т.д. и делай новое правило, основываясь на примере выше  */ < /style> < /head> < body> < p> & copy; твояфамилия< /p> < h1> заголовок< /h2> < p class="p1"  text-align="justify"> твой текст< b> тут выделенный текст< /b> < /p> < /body> < /html>

program jfe3;

const n=10; {это будет кол-во элементов массива}

var a: array [1..n] of integer; i,s: integer;

begin

for i: =1 to n do begin

                            a[i]: =random(100);     {элемент выбирается случайно от 0 до 100}

                            s: =s+a[i];   {когда эл. присвоился, его значение плюсуется к общ сумме}

                        end;

for i: =1 to n do

writeln(a[i],' ');     {показать сам массив}

writeln(s);   {показать сумму}

readln;   {чтобы окно сразу не закрывалось}

end.

 

если есть вопросы по программе, пиши в личку. если надо что-то еще - тоже =)

удачи)