Даны простые высказывания: A= «Число 2 — чётное число»
B=«Волк — травоядное животное».
Запиши верный ответ. (В ответе запиши значение логической переменной)

pascal:

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

uses crt; var

  v,r,h: real; begin  write('r='); readln(r);   write('h='); readln(h);   v: =pi*sqr(r)*h;   write('v=',v); end.

512 бит = 512/8=  64 байт

1073741824 байт =1073741824/1024=1048576 кбайт / 1024= 1024 мбайт

1024 кбайт = 1024*1024=1048576 байт

4

дискета 3,5 = 720 кбайт

сd= 650 мбайт

dvd= 1,4 гбайт- 17,08гбайт

жесткий диск = до 5 тбайт (терабайт)

5

30 кбайт= 30*1024 = 30720 байт

125 кбайт  =  125* 1024 =128000 байт

1024 кбайт = 1024* 1024 = 1048576 байт

71 кбайт = 71 * 1024 = 72704 байт

13 гбайт = 13*1024=13312мбайт=13312*1024=13631488кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 кбайт

32 гбайт = 32*1024*1024=33554432 кбайт

769мбайт = 769*1024 = 787456 кбайт

512 байт = 512 /1024 = 0,5 кбайт

70254592 байт = 70254592/1024/1024=67 мбайт

42 гбайт = 42*1024= 43008 мбайт

20482 кбайт = 20482/1024 = 20мбайт

2 гбайт =2*1024=2048 мбайт 

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.