700 * 1024 * 1024 = 734003200 байтов;
734003200 * 8 = 5872025600 битов.
APPLE FOR DINNER Как то так
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия >< Семенов;
б) занятие = геология
в) дата рождения < 5.05.1989
г) дата <= 23.09.1996
д) алгебра >< отлично;
е) автор книги = Беляев А.Р.;
ж) год издания <=1990
з) место нахождения >=3
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
if x mod (10*b+c)=0 then begin
Writeln('Вычеркнуть первую цифру (',a,')');
Exit
end
else
if a+c<>0 then
if x mod (10*a+c)=0 then begin
Writeln('Вычеркнуть вторую цифру (',b,')');
Exit
end
else
if a+b<>0 then
if x mod (10*a+b)=0 then begin
Writeln('Вычеркнуть третью цифру (',c,')');
Exit
end;
Writeln('Нет решения')
end.
Начинается с <BODY> и заканчивается </BODY>