(см. объяснение)
Объяснение:
Первый :
Воспользовавшись возможностями PascalABC.NET, напишем программу:
begin
var a: array of integer := seqGen(5807,x->x+2595).Where(x->(x mod 2 = 0) and (x mod 13 <> 0)).ToArray();
a.Count.Println; a.Sum.Println;
end.
Второй :
Чистый Pascal тоже позволяет решить эту задачу, только вот код сильно длиннее:
var i,k,sum: integer;
begin
k:= 0;
sum:= 0;
for i:= 2595 to 8401 do
if((i mod 2 = 0) and (i mod 13 <> 0)) then
begin
k:= k+1;
sum:= sum+i;
end;
writeln(k);
writeln(sum);
end.
В обоих случаях получаем два числа: 2679 и 14728918.
Задание выполнено!
Поделитесь своими знаниями, ответьте на вопрос:
A(верхнее подчёркивание) (b ∨ c) подойдёт эта запись для такого: для каких из имён верно высказывание: не(первая буква гласная и последняя буква гласная): 1) иван, 2) пётр, 3) светлана, 4) елена. если нет, то что исправить ( логики, таблицы истинности)
Событие В - последняя буква гласная
Высказыванию НЕ(первая буква гласная И последняя буква гласная)
соответствует логическое выражение:
¬(A* B)= ¬A+¬B --> " первая не гласная или последняя не гласная"
---> 1) Иван 2) Пётр 3) Светлана