PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
program abc;
var
i, j:integer;
pr:boolean;
begin
writeln('Простые числа в диапазоне от 1 до 100: ');
for i := 2 to 100 do
begin
pr := true;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
pr := false;
break;
end;
if pr then
write(i, ' ');
end;
writeln;
end.
С помощью DaemonTools снимаешь образ диска с оригинала, а потом записываешь его на другой диск, таким образом получается точная зеркальная копия диска
команды: Создать, сохранить изменить, открыть, сохранить как..., свойство, выход, копировать вставить файл, смешать с файлом, удалить.
создать - записать звук
сохранить - сохранить запись
изменить - редактировать аудио дорожку
открыть - открыть файл
сохранить как - где именно сохранять и в каком формате
свойство - свойство программы типа Информации о программе
выход - выход из программы
копировать вставить файл - скопировать дорожку вставить дорожку
смешать с файлом - смешать аудио с другой дорожкой
удалить - удалить аудио дорожку.
Ответ:
(32*8)/128=2 бита один символ
мощность алфавита N= 2 в степени 2=4
Объяснение: