uses graphabc; type fun = function (x: real): real; function f(x: real): real; begin f: =0.5*x*cos(2*x); end; // l (logical) - логические координаты// s (screen) - координа...Подробнее

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик....Подробнее

1)program zadacha1; uses crt; var b,i,j: integer; c,pr: real; a: array [1..4,1..7] of integer; beginclrscr; pr: =1; for i: =1 to 4 dobegin for j: =1 to 7 do begin readln(a[i,j]);...Подробнее

2^3 = 8 цветов (скорее всего оттенки серого)...Подробнее

пусть х основание системы счисления, тогда: 122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит: х²+2х+2=65...Подробнее

а)сумм(a5: b7) б)срзнач(c4: c7)...Подробнее

1 способ   применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом): 16 8-8 4-4 4-4 2-2 2-2 2-2 2-2 1-1 1-1 1-1 1-1 1-1 1-1 1-1 1...Подробнее

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.  ...Подробнее

1. program okay; {здесь я думаю, все понятно} var i, count : byte; {i - будет счетчиком, в переменную count мы запишем количество четных чисел} begin count: =0; {пока что мы не...Подробнее

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