Результатом исполнения данной программы не может быть число 100, так как эта программа содержит ошибку.
Массив здесь описан
var a: array [1..8] of integer;
При выполнении цикла
for i:=1 to 8 do <span>a [i] := a [i-1] + 3;
на первом шаге должна быть выполнена команда a[1]:=a[0]+3
Элемента a[0] в массиве нет. Даже если бы он был, то введенное значение a[1] было бы заменено новым значением </span><span>a[0]+3</span>
В графическом редакторе можно создавать рисунки. В операционной системе Windows самый простой графический редактор - это программа paint.Используя команду Ctrl+S, можно сохранить созданный рисунок. В названии файла нельзя использовать символы #,%,*,&,\,:,|,"". Чтобы распечатать рисунок используют команду "Файл" "печать".
var chastnoe,cifra,x,y:integer;
begin
y:=237;
cifra:=(y div 100);//получаем первую цифру числа 237
chastnoe:=(y mod 100);//находим число получившееся после деления
x:=chastnoe*10+cifra;//находим число Х
writeln(x);//выводим
end.
1. (A v ¬A) & B = (A + ¬A) * B = 1 * B = B;
2. A & (A v B) & (C v ¬B) = A * (A + B) * (C + ¬B) = A * (C + ¬B) = A & (C v ¬B)
3. A & ¬B v B & C v ¬A & ¬B = A * ¬B + B * C + ¬A * ¬B = A * ¬B + ¬A * ¬B + B * C =
= ¬B * (A + ¬A) + B * C = ¬B * 1 + B * C = ¬B + B * C = ¬B + C = ¬B v C
4. A v ¬A & B = A + ¬A * B = A + B = A v B
Var s,s1,s2:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s;
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
writeln('Строка без пробелов:');
writeln(s1);
s2:='';
for i:=1 to length(s1) do
if s1[i]='.' then s2:=s2+'. ' else s2:=s2+s1[i];
writeln('Строка с пробелами после ".":');
writeln(s2);
end.
Пример:
Введите строку:
1. 2. 3. 4. 5. Вышел зайчик. Погулять.
Строка без пробелов:
1.2.3.4.5.Вышелзайчик.Погулять.
Строка с пробелами после ".":
1. 2. 3. 4. 5. Вышелзайчик. Погулять.