Сделай таблицу по антивирусам. 1. Название антивирусной программы. 2 Страна производитель. 3. Тип антивирусной программы. 4. Плюсы программы. 5. Минусы программы. Нужно 10 наименований/столбцов
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var (p,q,s):=(1,2,0); var k:=0; Write('(1,5) '); for var i:=3 to 1000 do begin var (flag,j,r):=(True,2,Round(Sqrt(i))); while flag and (j<=r) do if i mod j = 0 then flag:=false else j+=1; if flag then begin (p,q,s):=(q,s,i); if q-p=4 then Write('(',p,',',q,') ') else if s-p=4 then Write('(',p,',',s,') ') end end end.
Добрый день! Спасибо за ваш вопрос. Давайте разберемся вместе.
Ваш вопрос можно перевести на русский язык следующим образом: "Как посчитать сумму чисел, записанных в десятичном виде?"
Для решения этой задачи нам нужно понять, что такое десятичная запись числа. Десятичная система счисления - это система, основанная на числе 10. В ней используются цифры от 0 до 9, и каждая цифра имеет свое место в числе в зависимости от разряда.
Давайте рассмотрим пример. Предположим, у нас есть числа 234 и 567. Нам нужно сложить их:
234
+ 567
------
801
Процесс сложения начинается с самого правого разряда, то есть с единиц. Сначала мы складываем цифры 4 и 7 - это дает нам 11. Так как 11 не может быть записано в одной цифре, мы записываем единицы (1) и переносим десятки (1) в следующий разряд.
Затем мы складываем цифры в разряде десятков: 3 и 6, а также перенос от предыдущего шага (1). Это дает нам 10. Опять же, мы записываем единицы (0) и переносим сотни (1) в следующий разряд.
Наконец, мы складываем цифры в разряде сотен: 2 и 5, а также перенос от предыдущего шага (1). Получается 8.
Таким образом, сумма чисел 234 и 567 равна 801.
Надеюсь, объяснение было понятным. Если есть еще вопросы, я с радостью отвечу.
// Внимание! Если программа не работает, обновите версию!
begin
var (p,q,s):=(1,2,0);
var k:=0;
Write('(1,5) ');
for var i:=3 to 1000 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false
else j+=1;
if flag then begin
(p,q,s):=(q,s,i);
if q-p=4 then Write('(',p,',',q,') ')
else
if s-p=4 then Write('(',p,',',s,') ')
end
end
end.
Результат
(1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)