Var a,b:integer;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a > b) then
writeln('a больше b')
else if (b > a) then
writeln('b больше a')
else
writeln('a равен b');
end.
40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 343597383680 / 5872025600 шт = 58.51428571428571 шт ~= 59 шт (округляем в большую сторону так как кусками тут быть не может)
Ответ:
program SubStrings;
uses
SysUtils, StrUtils;
var
s, w: AnsiString;
i, iw, iMax: Integer;
setN: Set Of Char;
begin
setN := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-'];
Write ('Введите строку: ');
ReadLn (s);
w := '';
iMax := 0;
WriteLn;
for i := 1 to Length (s) do begin
if w = '' then begin
if s [i] in setN then begin
w := w + s [i];
end
end else begin
if s [i] in setN then begin
w := w + s [i];
end else begin
iw := StrToInt (w);
Write (iw, ' '); // для вывода "очищенной" строки, нужно при проверке
if iw > iMax then
iMax := iw;
w := '';
end;
end;
end;
WriteLn;
WriteLn ('Максимальное число = ', iMax);
ReadLn;
end.
Ответ:
((1v0)v1)v1 = 1
(0&1)&1 = 0
1&(1&1)&1 = 1
((1v0)&(1&1))&(0v1) = 1
((1&0)v(1&0))v1) = 1
((1&1)V0)&(0V1) = 1
((0&0)V0)&(1V1) = 1
Объяснение:
V - Дизъюнкция - or - или
& - Конъюнкция - and - и