Решить задачи. 1. Дана площадь квадрата. Определить и вывести на экран сторону квадрата и длину его диагонали. 2. Определите, к
Решить задачи. 1. Дана площадь квадрата. Определить и вывести на экран сторону квадрата и длину его диагонали. 2. Определите, какое значение примут переменные после выполнения фрагмента программы: а :=7974; b := -26+a div 100*100; a := (a-b) mod 10+7864;
3. Ввести три числа . Большее из B и C добавить к А, полученные значения A, В, С вывести на экран.
4. Даны числа . Если они четные, то заменить каждое нулем, если четно только одно, то увеличить его в 5 раз, вывести полученные значения числе на экран.
5. Определите, какое значение примет переменная после выполнения программы: a :=20; b :=10; b :=b-2*a; if a < b then c:=b-a else c:=a-2*b;
Var a,t,s,zn,zn1:real; z,r,q1,q2,q3,qv1,qv2,qv3:integer; function kv(s:real):real; begina := sqrt(s);kv := a; end; procedure d(r:integer;var m,m1:real); var h:integer;begin h := -26+r div 100*100; r := (r-h) mod 10+7864; m:= r;m1 := h; end; procedure rt(v1,v2,v3:integer;var n1,n2,n3:integer); beginif v2 > v3 then v1:= v1 + v2else v1 := v1 + v3; n1:=v1; n2:= v2; n3:=v3; end; procedure rt2(v1,v2:integer;var n1,n2:integer); beginif (v1 mod 2 =0) and (v2 mod 2 = 0) then begin n1:= 0; n2:= 0;end else if (v1 mod 2 =0)then v1 := v1 *5 else if(v2 mod 2 =0)then v2:= v2 * 5; n1:=v1; n2:= v2; end; function rr(a,b:integer):real; var c: integer; begin b :=b-2*a; if a < b then rr:=b-a else rr:=a-2*b; end; beginr :=7974; writeln('Введите площадь квадрата'); readln(s); t:= kv(s); writeln('Сторона квадрата равна = ',t); d(r,zn,zn1); writeln('переменные a, b значение примут ',zn: 5, zn1: 5); writeln('Ввести три числа A, B,C'); readln(q1,q2,q3);rt(q1,q2,q3,qv1,qv2,qv3); writeln('A, B, C получили значения',qv1:4,qv2:4,qv3:4); writeln('Ввести числа x, y'); readln(q1,q2); rt2(q1,q2,qv1,qv2); writeln('x, y получили значения',qv1:4,qv2:4); writeln('Определяем, какое значение примет переменная c'); q1:=20;q2:=10; s:= rr(q1,q2); writeln('Переменная c примет значение: ', s); <span>end.</span>
Операция mod возвращает отстаток целочисленного деления. Если число четное, оно делится на два без остатка, поэтому условие четности проверяет, чтобы остаток от деления числа на 2 был нулевым.
Для символа в алфавите из 32 символов (32=2^5) требуется 5 бит, поэтому весь текст займет 5*49152 = 245760 бит. Или, поделив на 1024, получим 240 Кбит. В байте 8 бит, поэтому еще надо поделить результат на 8. Окончательно получим 30 Кбайт.