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

Знания

Информатика

1 ответ:

Гер35 [14]4 года назад

0 0

//Dev-C++ 5.11

#include <stdio.h>

int main(void)
{long long int i,curr;
int currsum,flag;
long long sum=0;
for(i=8;i<=1111111;i++)
{curr=i;
flag=0;
currsum=0;
while (curr!=0 && flag==0)
{if (curr%10==0)
flag=1;
else
{currsum+=curr%10;
curr/=10;}}
if(flag==0 && currsum==7)
sum+=i;}
printf("%d",sum);
return 0;}

Вывод:
<span>2165220</span>

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

Помогите, не могу понять, как повернуть матрицу на 90 градус. Сформировать матрицу 4*4, рандомно заполнить, вывести исходную мат

545dumbik545 [21]

Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.

Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17

0 0

4 года назад

Переведите числа 1001010;1001000101 из двоичной в десятичную

19sobolev91

72(9-&+;%6::+)9&977-764%+

0 0

4 года назад

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

Внимательно рассмотрите как выглядит рабочая область окна Excel и охарактеризуйте основное, на ваш взгляд, отличие окна Excel от

Слава98

Word- мощный текстовый редактор

0 0

4 года назад

2 задание помогите срочно по информатике

danvshur

1. Размер фото 6*8= 54 см кв
2. 54*900= 48600 точек
3. 48600*3= 145 800 бит = 18225 байт

0 0

4 года назад

Помогите с заданием...Дан массив. Напишите пропущенные команды. Ввести с клавиатуры массив F, из 16 элементов целого типа, нумер

Энжэ [73]

Program Primer;

var F:array [1..16] of integer; d, kch: integer;

begin

for d:=1 to 16 do read(F[d]);

kch:=0;

for d:=1 to 16 do

if (F[d] mod 2 = 0) then kch:=kch+1;

writeln(kch);

end.

0 0

4 года назад