profile
Опубликовано 5 лет назад по предмету Информатика от Dry688

Сумма квадратов цифр
Пример входного файла 22
Пример выходного файла 8

  1. Ответ
    Ответ дан lbvf23

    Var x, i,k, s, x2:Integer ;

    A:array [1..10]of Integer ;

    Begin

    Write(' x=') ;read(x) ;writeln;

    K:=0;x2:=x;s:=0;

    While x>0 do begin

    K:=k+1;

    X:=x div 10;

    End;

    For i:=1 to k do begin

    A[i]:=x2 mod 10;

    X2:=x2 div 10;

    S:=s+sqr(a[i]);

    End;

    Write(' s=', s) ;

    End.

Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.