?>
СЕГОДНЯ СДАВАТЬ Для данной программы построить блок-схему и найти значение С и Р при х=45; 97; 55 program n_3; var x, a, k, C: integer;P: real; begin writeln ('Введите двузначное число'); readln (x); a:=x div 10; k:= x mod 10; if a>=k then C:=sqr(a+k) else C:=sqr(a)+sqr(k); P:= sqrt(C); writeln ('C=', C); writeln ('Р=', P:5:2); end. Программу, блок-схему и решение записать
Ответы