Решить задачи. 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>
Побольше обьяснений, а пока напишу так: var A:integer; begin Writeln('Введите температуру, в зимнее время'); Readln(A); If A>0 then Writeln('Метеорологическая весна наступала') else Writeln('Метеорологическая весна не наступала'); end.
... Каждый начал приводить аркументы, мол, я лучше потому-то - потому-то.
Без клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер, без монитора мы бы не смогли видеть эту самую информацию, без памяти мы бы не могли сохранить ее (информацию), а без процессора и вовсе компьютер не стал бы работать.
И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал.