3 года назад

Дано натуральное число N. Написать программу вычисления суммы нечётных чисел. Помогите пожалуйста

1 ответ:

0 0

#include <iostream>using namespace std;
int main(){ int N=382, num1, num2, num3, sum; num1=N/100; num2=N%100/10; num3=N%100%10; sum=num1+num2+num3; cout << sum << endl; return 0; Вместо N=382 любое трехзначное число. Если чисел больше, меняется код.
}

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

Решить в паскаль! Дана прямоугольная матрица. Найти строку с на меньшей суммой элементов. И если не сложно опишите действия. Зар

Деловой 1 [7]

Программа:

const n=5; m=6;

var

a:array[1..n,1..m] of integer;

i,j,s,min,k:integer;

begin

Randomize;

writeln('Исходный массив:');

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=random(100);

write(a[i,j]:4);

end;

writeln;

end;

min:=0; k:=1;

for j:=1 to m do min:=min+a[1,j];

writeln('s1 = ',min);

for i:=2 to n do

begin

s:=0;

for j:=1 to m do s:=s+a[i,j];

writeln('s',i,' = ',s);

if s<min then begin min:=s; k:=i; end;

end;

writeln('min сумма = ',min,' (',k,'-я строка)');

end.

Пример:

Исходный массив:

24 61 29 35 82 8

98 58 55 2 11 35

14 46 59 55 79 8

4 25 4 48 83 49

96 27 56 87 91 63

s1 = 239

s2 = 259

s3 = 261

s4 = 213

s5 = 420

min сумма = 213 (4-я строка)

0 0

4 года назад

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

Сколько Бит в 1,44 Мбайт

Vitalik Puma [13]

1 байт=8 бит
1 Мбайт=2^20 байт=8*2^20 бит=2^3*2^20 бит =2^23 бит
1.44 Мбайт= 1.44*2^23 бит

0 0

4 года назад

Запишите маску, по которой можно отобрать файлы, имя которых начинается с латинской буквы «d», а расширение состоит из трёх симв

Казаринова Ольга ...

Это маска d*.??b. Как то так

0 0

4 года назад

Даны целые числа a и b.Написать программу ,которая выводит число 1,если числа равны ,и число 0 в противном случае

a6pa [4]

Dim a As Integer
Dim b As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")<span>

If a = b Then MsgBox("1") Else MsgBox("0")</span>

0 0

4 года назад

Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное

Пташка папина тру... [1.9K]

Var
n, h, m, s: integer;
begin
read(n);
n := n mod (3600*24);
h := n div 3600;
m := n mod 3600 div 60;
s := n mod 60;
write(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
end.

0 0

4 года назад