Var
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.
AV(~A)
V-дизъюнкция(максимум)
~A-не А
Максимум из А и (не А)(А может быть только 0 или 1) всегда равен 1.
AV(~A)=1
Ответ:AV(~A)=1
Program Pr1;
uses crt;
var n,i,a,b,c:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
a:=n;
for i:=2 to 4 do begin
a:=a+10;
n:=n+a;
end;
writeln(n);
end.
Запишим коды каждой буквы:А = 1000Б = 1001В = 1010Г = 1011 Запишем последовательность БГАВ = 1001101110001010 Чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. Получится:001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. Они не дают результата, просто удобны для записи). Переводим кажое число путем развернутой )формы записи и счета: <span>Ответ: 115612</span>
Program Program1;
var a,b,c,d:real;
begin writeln('Введите число 1'); readln(a); writeln('Введите число 2'); readln(b); writeln('Введите число 3'); readln(c); d:=a+b+c; writeln('a+b+c=',d);end.