Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Решить задачи.
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);
end.