Ввести арифметическое выражение c тремя числами, в котором можно использовать сложение и вычитание. вычислить это выражение.

var y,x,alpfa1,alpfa2,beta,l: real; t1,t2: real; beginreadln(x,alpfa1,alpfa2,beta,l); t1: =sqr(x)+sqr(alpfa1); t2: =sqr(x)*x*(beta-alpfa2)-sqr(cos(l+2))*cos(l+2); if (t1=0)or (t2< 0) then write('y не определено') else begin y: =t1*t2; writeln('y=',y: 0: 2); end; readln; end.

не знаю можнт так

program arifmetika; var a,b,c,summa: integer; beginwrite('введите число а'); readln(a); write('введите число b'); readln(b); write('введите число с'); readln(c); summa: =(a+b)-c; write('арифметическое выражение c тремя числами=',summa); end.

это самая простая программа. делал через паскаль

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))