1. Информатика
  2. Найти сумму всех натуральных

Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100.

mukola11 mukola11    3   19.06.2019 08:50    1

Ответы
nastea3377 nastea3377  02.10.2020 05:10
Var
i,s:integer;
begin
for i:=1 to 100 do
if (i mod 7 =0) and (i mod 2 =0) then
s:=s+i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Govnoegc Govnoegc  25.08.2019 03:40
Диаграмма, применяемая в том случае, когда сравниваемые величины образуют в сумме 100% ответ:...
artemts242 artemts242  25.08.2019 03:40
Составить алгоритм (дом) с исполнитель чертежник....
ВасилийПетрович11 ВасилийПетрович11  25.08.2019 03:40
1. определить сколько раз выполнится цикл 1) for i: =2 to 3 do k: =k-1; 2) for i: =9 to 7 do k: =k+1; 3) for i: =5 to 2 do k: =k-1; 4) for i: =15 downto 4 do k: =k-1; 5) for i:...
kegemov kegemov  25.08.2019 03:40
2. определить значение переменной s после выполнения следующих операторов при n=6, 5, 9 read(n); s: =4; for i: =0 to n do s: =s+i; write(s);...
natapova12 natapova12  16.05.2019 22:01
Постройте диаграмму для выписки счета за телефон при структурном подходе. счет вы-писывается абонентским отделом гтс и включает начисленную ежемесячную абонплату и сумму за междугородние...
REIIKA REIIKA  16.05.2019 21:58
Выясните какой сигнал должен быть на выходе электронной схемы при каждом возможном наборе cигналов на входах. составьте таблицу работы схемы. каким логическим выражением описывается...
wjruwhtu wjruwhtu  17.03.2022 03:12
7 классопределите результат выполнения программы если а =4;-1;0.[3]...
ghi3 ghi3  17.11.2020 13:57
Нужно просто перенести всё что на фото в ворд...
Almurt Almurt  17.11.2020 13:57
2Dмен3D айырмашылыгы кандай​...
Noni234 Noni234  29.04.2020 21:47
Какие виды оглавления бывают (кратко...

Популярные вопросы