К/Р по информатике 1) Напишите программу создания буквы Г 2) Напишите программу создания буквы Ш 3) Нарисуйте фигуру по следующей программе и дать название программе
// PascalABC.NET 3.2, сборка 1403 от 16.03.2017 // Внимание! Если программа не работает, обновите версию!
function SumDigits(n:integer):integer; begin Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray; var i:=s.IndexMax; var k:=s.Where(x->x=s[i]).Count; case k of 1:begin Write('Сумма цифр наибольшая у '); case i of 0:Write('первого'); 1:Write('второго'); 2:Write('третьего'); end; Writeln(' числа') end; 2:begin Write('Сумма цифр наибольшая у '); if s[0]=s[1] then Writeln('первого и второго чисел') else if s[0]=s[2] then Writeln('первого и третьего чисел') else Writeln('второго и третьего чисел') end; 3:Writeln('Суммы цифр у всех трех чисел равны') end end.
Примеры Вводите: 102030 324 19 Сумма цифр наибольшая у третьего числа
Вводите: 16453 4320 56341 Сумма цифр наибольшая у первого и третьего чисел
Вводите: 12345 12354 54321 Суммы цифр у всех трех чисел равны
NTFS заменила использовавшуюся в MS-DOS и Microsoft Windows файловую систему FAT. NTFS поддерживает систему метаданных и использует специализированные структуры данных для хранения информации о файлах для улучшения производительности, надёжности и эффективности использования дискового пространства. NTFS имеет встроенные возможности разграничивать доступ к данным для различных пользователей и групп пользователей (списки контроля доступа — ACL), а также назначать квоты (ограничения на максимальный объём дискового пространства, занимаемый теми или иными пользователями) . NTFS использует систему журналирования для повышения надёжности файловой системы.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку