<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.
<u>Результат</u>
Сумма=-8, количество слагаемых 4
Сначала был каталог
D:\Школа\Информатика\<span>Практика_по_КИТ.doc.
</span>Потом создали подкаталог
D:\Школа\Информатика\8_класс\
И туда перенесли Практика_по_КИТ.doc.
Получилось:
D:\Школа\Информатика\8_класс\Практика_по_КИТ.doc.
Поэтому самый первый котолог это
D:\Школа\Информатика\
Ответ Б
Uses crt;
const n=15;
var a : array [1..99] of integer;
i:integer;
begin writeln('исходный массив:');
for i:=1 to n do //заполнение массива случайными числами
begin a[i]:=random(71)-15;
write(a[i],' ');
end;
writeln;
writeln('отсортированный массив:');
for i:=1 to n do begin // Проверка на чётность
if a[i] mod 2=0 then
write(a[i],' ');
end;
end.
Ответ:
б) (A + B) * (неA + неB)= A * неA + A * неB + B * неA + B * неB= 0 + A * неB + B * неA + 0= A * неB + B * неA
и) A*(неB*неC + B*C) + A*(B*неC + неB*C)= A*(неB*неC + B*C + B*неC + неB*C)=A*((неB*неC + неB*C) + (B*C + B*неC) )=A*(неB*(неC + C) + B*(C + неC) )=A*(неB*1 + B*1)=A*1=A