Program prog; uses crt; var a,b,t: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); if (a> b) then begin t: =a; a: =2*a*b; b: =(t+b)/2; end; if (a< b) then begin t: =b; b: =2*a*b; a: =(t+a)/2; end; if(a=b) then writeln('числа равны') else writeln('a = ', a, ', b = ', b); end.
andreich97
28.05.2023
Program prog; uses crt; var a,b,t: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); if (a> b) then begin t: =a; a: =2*a*b; b: =(t+b)/2; end; if (a< b) then begin t: =b; b: =2*a*b; a: =(t+a)/2; end; if(a=b) then writeln('числа равны') else writeln('a = ', a, ', b = ', b); end.
1.алгоритм
2.мегагерц
3.величина
4.гигабайт
5.дисковод
6 документ
7 оператор
8 удаление
9 парамент
10 протакол
11 редактор
12 рекурсия
13 сумматор
14 телетайп
15 картридж
16 лексикон
17 носитель
18 шифратор