Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4); &nbs... Подробнее

var a,res: integer; begin writeln('введите число'); readln(a); res: =sqr(a); writeln('квадрат числа,'a', равен,'res','); readln; end.... Подробнее

1/512 мб = 1024/512 кб = 2 кб = 2048 байт = 2048 * 8 бит на 1 символ отводится 2048 * 8 бит / 2048 = 8 бит объём алфавита 2^8 = 256 символов... Подробнее

у дальних планет больше спутников по причине их большей массы. чем больше масса планеты - тем большую массу она притягивает и захватывает.... Подробнее

нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек расс... Подробнее

в блок схемах не сильна   var n: integer; s,s0: real; begin   n: =1;   s: =10;   repeat       n: =n+1;       s: = s + (... Подробнее

var n, n1, n2, n3, k: integer; begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1... Подробнее

21,24,27,30,33,36,39,42,45,48... Подробнее

скорость в мб/c 100/8 = 12,5 мб/c переведем в кб/с = 12,5 * 1024 =   12800 кб/с тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд ... Подробнее

1. var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.   решить на паскале?... Подробнее

пусть наше число записывается в виде abc. тогда в системе счисления с основанием x числа abc и abcabc выражаются следующим образом:   abc = ax^2 + bx +c (1) abcabc = ax^5 +... Подробнее

var i: integer; s: string; begin   s: ="abcdefghijklmnopqrstuvwxyz";   for i: = 1 to length(s) do       writeln(s[i],' = ', ord(s[i])); end.... Подробнее

256= 2^i=2^8следовательно i=8 битов 8*80*32=20480 битов 20480*2=40960 битов=5120 байт=5 килобайт   ^ - это я так обозначила степень i - количество информации(обычно обозначае... Подробнее

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);... Подробнее

обьем вини изначальный прирост от меда прирост от сгущенки время реализации прироста время худенья радиус дверей  ... Подробнее

var   st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char; begin   z: =0;   readln(s);   readln(s1);   g: =leng... Подробнее

var   x: real; begin   readln(x); writeln(x: 0: 0); end.... Подробнее

12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так... Подробнее

как я поняла амур надо соединить с теми множествами в которые слово входит. в множество слов, множество названий рек,множество слов на букву а входит ... Подробнее

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!... Подробнее