Регистрация
Ultranet
16.12.2020 13:42
Информатика
Есть ответ 👍

Запишите на языке Паскаль программу, которая определяет сумму и произведение цифр числа 39.

181
263
Посмотреть ответы 2

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

lerkakotik1983
lerkakotik1983
4,7(54 оценок)
                                     PascalABC.NET                                      beginvar a := Arr((39).ToString.AsEnumerable).ConvertAll(c->c.ToDigit);a.Sum.Println; a.Aggregate(1,(p,c)->p*c).Println;end.

Пример работы:

ЖақсыбаеваГүлзат
ЖақсыбаеваГүлзат
4,6(92 оценок)
Program zadacha_1; var a,b,c,a2,d: integer;   begin  d: =0;     for a: =100 to 999 do begin    a2: =a;       b: =a2 mod 10;       a2: =a2 div 10;     c: =a2 mod 10;     a2: =a2 div 10;     if sqr(b)+sqr(a2)=sqr(c) then writeln(a);     if sqr(b)+sqr(a2)=sqr(c) then d: =d+1 ;     end;     writeln('количество ==> ', d); end.

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