3 года назад

Назовем число новогодним, если его запись не содержит цифры 0, а сумма всех цифр равна 8. Найти сумму всех чисел.

1 ответ:

0 0

8
17
26
35
44
53
62
71
116
125
134
143
152
161
215
224
233
242
251
314
323
332
341
413
422
431
512
521
611
1115
1124
1133
1142
1151
1214
1223
1232
1241
1313
1322
1331
1412
1421
1511
2114
2123
2132
2141
2213
2222
2231
2312
2321
2411
3113
3122
3131
3212
3221
3311
4112
4121
4211
5111
11114
11123
11132
11141
11213
11222
11231
11312
11321
11411
12113
12122
12131
12212
12221
12311
13112
13121
13211
14111
21113
21122
21131
21212
21221
21311
22112
22121
22211
23111
31112
31121
31211
32111
41111
111113
111122
111131
111212
111221
111311
112112
112121
112211
113111
121112
121121
121211
122111
131111
211112
211121
211211
212111
221111
311111
1111112
1111121
1111211
1112111
1121111
1211111
2111111
11111111

Читайте также

Проверить 3-ех значеное на честность и на сумму его цифр,если четн, если нет то произведение его цифр

whiteCollar

Var a,b,c,s:Integer;
begin
Read(s);
a:= s div 100;
b:= s div 10 mod 10;
c:= s mod 10;
if odd(s) then
WriteLn('Нечетное. произведение чисел равно '+a*b*c)
else
WriteLn('Четное. Сумма чисел равна '+(a+b+c));
end.

0 0

1 год назад

Прочитать ещё 2 ответа

Задача: Составить программу для вычисления суммы и произведения 5 чисел введенных с клавиатуры. В паскале

DONNBASS [111]

0 0

3 года назад

Помогите пожалуйста это кумир

Татьяна9500

Какое задание? Тогда я Смогу помочь.

0 0

3 года назад

с клавиатуры вводят слово.Составить программу ,которая:а)определяет количество символов в нёмб)проверяет,не совпадают ли первая

Светлана Кук

uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');

writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');

if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');

end.

0 0

3 года назад

Помогите пожалуйста составить программу на языке Паскаль)))

lelyadora

Var a:array[0...6] of integer;
sum, i, N, x : integer;
begin
readln(N);
for i 1 to N do begin
sum:=0;
readln(x);
if x mod3 = 0
sum:=sum+x
end;
writln(sum);
end.

0 0

4 года назад