var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
2) A = True; B = False; C = True
A \/ С /\ (B \/ ¬B → ¬C) = A \/ С /\ (B \/ ¬C) = 1 (True)
3) Вес одного пикселя = 8 бит = 1 байт
(1024 * 768 * 1) / 1024 = 768 Кбайт
Var
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
<span>end.</span>
const Знаки_препинания = ".,!?():;—…«»";
var Строка = prompt();
alert(Строка.replace(new RegExp("[" + Знаки_препинания.split("").join("\\") + "]", "g"), ""));
Вспоминаем формулу Шеннона
Общее количество карандашей равно 3+7 = 10.
p₁= 3/10 = 0.3; p₂ = 7/10 = 0.7