Var
m, n, n10, n100: integer;
begin
write('Введите трехзначное число: ');
readln(m);
if (m > 99) and (m < 1000) then
begin
n100 := m div 100;
n10 := (m mod 100) div 10;
n := m mod 10;
if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
else writeln('Сумма цифр не кратна семи')
end
end.
Тестовое решение:
Введите трехзначное число: 473
Сумма цифр кратна семи
Я вообще в этом нуб. простите ни чем не могу помочь
600*1024=614400 кбайт- объем диска
614400/500 = 1228.8 кол-во фотографий, округляем в меньшую сторону так как куска фотки быть не может = 1228
1228*6 = 7368 с = 2.04666666666 часа уйдет времени на просмотр
Ответ: 7368 с
check comment ( pls delete )
1 Гбайт = 1024 Мбайта = 1048576 кбайт = 1073741824 байта
1073741824 = 2^i
i = 30
Ответ: для использования оперативной памяти объёмом 1 Гбайт необходим 30-разрядный адрес.