Решение на Паскале
var i, sum, s, ks :integer;
Begin
s:= 0;
for i:=50 to 150 do s:=s+i*i;
sum:=0;
for i:=50 to 150 do sum:=sum+i;
ks:=sqr(sum);
writeLn('Сумма квадратов целых чисел от 50 до 150 = ',s);
writeLn('Квадрат суммы целых чисел от 50 до 150 = ',ks);
end.
Const n=5;
var k,l,m:array[1..n] of integer;
i,p1,p2:integer;
begin
for i:=1 to n do
read(k[i]); {задаем массив с n=5 елементов}
for i:=1 to n do
if (k[i] mod 2=0) then {Проверяем четное число или нет}
begin
inc(p1); {Если да , то 'кидаем' елемент в массив L}
l[p1]:=k[i];
end
else
begin
inc(p2); {Если нет , то 'кидаем' елемент в массив M}
m[p2]:=k[i];
end;
writeln; {Вывод}
write('Четные:');
for i:=1 to p1 do
write(l[i],' ');
writeln;
write('Нечетные');
for i:=1 to p2 do
write(m[i],' ');
end.
<span> </span>
Во вложении находится решение задачи а).
Получено выражение с ИЛИ b И (НЕ (a ИЛИ b))
Упростим его.
<u>Ответ:</u> с
Var n,i,f1,f2,f,s:integer;
begin
readln(n);
f1:=1; f2:=1;
s:=f1+f2;
for i:=3 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
s:=s+f;
end;
writeln('s = ',s);
if s mod 2=0 then writeln('Да')
else writeln('Нет');
end.
Пример:
10
<span>s = 143
Нет</span>
В текстовом процессоре Word существуют три способа быстрой вставки часто используемой текстовой или графической информации в документ, основанные на использованииАвтотекста, Автозамены и Копилки.
С помощью команды Автозамена меню Сервис ранее созданные элементы (фрагменты текста, рисунки, таблицы и т. д.) могут быть многократно автоматически вставлены в документ. По этой команде также может производиться расшифровка аббревиатур и автоматическое исправление наиболее типичных опечаток