М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
PROFESSIONALL
PROFESSIONALL
13.12.2021 21:25 •  Информатика

Напишите программу которая для последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел, меньших 50, но больших 10. количество чисел не превышает 100. введенные числа не превышают 300. программа должна вывести одно число-сумму всех входящих в последовательность чисел, меньших 50, но больших 10

👇
Ответ:
KrisKvon
KrisKvon
13.12.2021
Var

a,i,sum : integer;

begin 

for i:=1 to 10 do begin 

read(a);

if (a>10) and (a<50) then sum:=sum +a;

end;

write(sum);

end.
4,5(44 оценок)
Ответ:
Dan1la1
Dan1la1
13.12.2021
C#:
    class Program
    {
        static void Main(string[] args)
        {
            int a = 0, summa = 0;

            for (int i = 0; i <= 100; i++)
            {
                a = Convert.ToInt32(Console.ReadLine());
                if (a > 10 && a < 50)
                {
                    summa += a;
                }
                else if (a == 0)
                {
                    break;
                }
            }

            Console.WriteLine(summa);

            Console.ReadLine();
        }
    }
4,8(33 оценок)
Открыть все ответы
Ответ:
Dyadya11
Dyadya11
13.12.2021
";

NSString *sqlPath = [[NSBundle mainBundle] pathForResource:DB_BaseName ofType:@"sqlite"];

FMDatabase *myDB = [[FMDatabase alloc] initWithPath:sqlPath];

[myDB open];

// subgroupPicArray = [[NSMutableArray alloc] init];

a = selectYear;

b = selectVar;

if([selectYear isEqualToString:@""])

selectSQL = [NSString stringWithFormat: @"select text, question.sort, name from Question, main where main.key=question.key and var=\"%@\"", selectVar];

else

selectSQL = [NSString stringWithFormat: @"select text, question.sort from Question, main where main.key=question.key and name=\"%@\" and var=\"%@\"", selectYear, selectVar];

FMResultSet *results = [myDB executeQuery:selectSQL];

while([results next]){

if([[results stringForColumn:@"Text"] isEqualToString:@""]){

myHTML = [NSString stringWithFormat: @"%@",selectVar,[results stringForColumn:@"sort"]];

// Добавление картинок в тело письма

NSString *TestIMG = [results stringForColumn:@"sort"];

if (![TestIMG isEqual: @""]){

TestIMG =[NSString stringWithFormat: @"%@.jpg",TestIMG];

// TestIMG = [NSURL fileURLWithPath:[[NSBundle mainBundle] pathForResource:TestIMG ofType:@"jpg"]];

NSData *imageData = ([UIImage imageNamed: TestIMG],1);

[mc addAttachmentData:imageData mimeType:@"" fileName:TestIMG];

}

} else

// Формирование текста страницы просмотра

myHTML = [NSString stringWithFormat: @"%@

%@

4,4(32 оценок)
Ответ:
kudryashovayantemik
kudryashovayantemik
13.12.2021
1) var  a: array[0..10] of integer;  i, s: integer;
begin    
for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');    
if a[i]<=20 then s:=s+a[i];
end;  
writeln;  
writeln(s);
end.

2) var  a: array[0..10] of integer;  i, s: integer;
begin    for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');  
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.    
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.  
end;    
writeln;  
writeln(s);
end.
4,4(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ