Найти какое число обозначает каждая буква если известно что 1) а равно сумме з и к 2) к в 3 раза меньше л 3) л равно сумме м и о 4) м равно разности н и р 5) н второе больше з 6) з является суммой р и о 7) о в 2 раза больше р 8) р в 4 раза меньше 36
Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите через "Enter" 4 числа ');read(a,b,c,d);r:=(a+b+c+d)/4;writeln('ответ ',r);end. 2 задача Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите ваш рост');read(a);writeln('Введите ваш вес ');readln(R);writeln('Ваш вес = ',r,' ваш ростс = ',a);end; var a,b,c,d:integer; x:real; begin write('Введите a,b,c: '); readln(a,b,c); //Дискриминант d:=sqr(b)-4*a*c; if d<0 Then writeln('Не имеет смысла') else if d=0 Then begin x:=-b/(2*a); writeln(x); end else begin x:= (-b + sqrt(D))/(2*a); writeln(x); x:= (-b - sqrt(D))/(2*a); writeln(x); end; end.
A)Pascal Var a,b,c,d, average: real; Begin Writeln('Введите 4 числа, каждый ввод закончить нажатием кнопки Enter'); readln(a,b,c,d); Average:=(a+b+c+d)/4; Writeln('Среднее Арифметическое 4-х чисел = ',Average); end.
b) var Age,High:integer; Ves:real; begin Writeln('Введите Возраст'); readln(age); Writeln('Введите Рост); readln(high); Writeln('Введите вес); readln(ves); Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves); end.
C) var n:integer; begin Writeln('Введите Число N'); readln(n); n:=n*n; Writeln('Квадратный корень равен= ',n); end.
К=Л:3
Л=М+О
М=Н-Р
Н=З*3
З=Р+О
О=Р*2
Р=36:4=9
О=Р*2=9*2=18
З=Р+О=9=18=27
Н=3*3=27*3=81
М=Н-Р=81-9=72
К=Л:3=90:3=30
А=К+З=30+27=57