Напишите программу, которая получает с клавиатуры целое число и записывает в логическую переменную значение «да» (True), если это число трёхзначное. После этого на экран выводится ответ на во Верно ли, что было получено трёхзначное число?».
Пример:
Введите число: 165
ответ: да.
Пример:
Введите число: 1651
ответ: нет.

program z1;

var a:integer;

o:boolean;

begin

write ('Введите число: ');

readln (a);

o:=(a>99) and (a<1000);

if o then writeln ('ответ: да') else writeln ('ответ: нет')

end.

Паскаль:

begin

var a:integer;

var b:boolean;

writeln('Введите число: ');

read(a);

if (a < 100) or (a >= 1000) then do b:=false else b:=true;

if (b != true) then writeln('ответ: нет.') else writeln('ответ: да.');

end.

Пайтон:

a = int('Введите число: ')

if a<100 or a>=1000:

  b = false

else:

  b = true

if b != true:

  print('ответ: нет.')

else:

  print('ответ: да.')

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.