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

Написать программу для турбо паскаля: нахождение суммы цифр числа

👇
Ответ:
Dyadya11
Dyadya11
21.10.2020
";

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 оценок)
Открыть все ответы
Ответ:
Dmi3iy
Dmi3iy
21.10.2020
Вам нужно зайти в меню «Пуск», в строке поиска написать команду «CMD» и нажать клавишу «Enter». Откроется окно терминала, где вам нужно ввести команду «ipconfig» и вновь нажать клавишу «Enter», после чего откроется список всех ваших сетевых подключений.

В этом списке вы увидите и ваш ip адрес и, соответственно, маску подсети Заходите в Панель управления\Сеть и Интернет\Сетевые подключения, выбираете ваше подключение и кликом правой кнопкой мыши переходите в графу «Состояние». В открывшемся окне кликните по клавише «Сведения». Откроется новое окно вашего подключения, где будут указаны ваш ip и маска подсети. Еще один узнать маску подсети по ip адресу: кликните по значку подключения в правом нижнем углу монитора и выберите «Центр управления сетями». Затем кликните в открывшемся окне «Изменение параметров адаптера» и дальше действуете аналогично вышеописанному варианту: начиная с выбора вашего подключения.
4,6(87 оценок)
Ответ:
oleg120906
oleg120906
21.10.2020

Дано натуральное число N (N <= 32767) и N целых чисел, не превышающих по модулю 32767. Найти среднее арифметическое и сумму чисел, которые меньше его. Точность среднего арифметического - 5 знаков после запятой.

Формат вывода: среднее арифметическое и сумма чисел меньше его через пробел.


Код (Pascal)

var

 i, n: integer;

 a: array[1..32767] of integer;

 sr: real;

 sum: longint;


begin

 read(n);

 sr := 0;

 sum := 0;

 for i := 1 to n do

 begin

   read(a[i]);

   sr := sr + a[i];

 end;

 sr := sr / n;

 write(sr:5:5, ' ');

 for i := 1 to n do

   if a[i] < sr then sum := sum + a[i];

 writeln(sum);

end.


Тесты

Ввод:

3

1 2 3

Вывод:

2.00000 1


Ввод:

3

0 0 2

Вывод:

0.66667 0

4,7(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ