Записати послідовність натискання кнопок калькулятора для обчислення виразу; 10*4+30*2

10*4

m+

30*2

m+

m

 

это с использованием памяти и правильный подход к делу

x: =10*4+30*2

1)a: =10*4

2)b: =30*2

3)a+b

1) var a,i,i1: integer; begin writeln('введите число'); read(a); for i: =1 to a do begin i1: =i1+1; write(i1,' '); end; end.2)var i: integer; var a: string; begina: ='*'; for i: =1 to 10 do beginwriteln(a); a: =a+'*'; end; end.3)var a: array [1..10] of integer; var i,j,k: integer; beginfor i: = 1 to 10 do begina[i]: =random(1,100); write(a[i],' '); end; writeln; for i : = 1 to 9 dofor j: = 1 to 10-i doif a[j] > a[j+1] then begink : = a[j]; a[j]: = a[j+1]; a[j+1]: = kend; for i : = 1 to 10 dowrite (a[i],' '); writeln; end.

Ты не написал список файлов. давай я тебе объясню фишечку этого ,чтобы ты мог сам его потом выполнить: ) смотри у тебя есть маска  ? ba*r.? xt? каждый вопросительный знак  обозначает  один  символ. т.е если указан файл c? t.tx? вместо может стоят столько   один  знак. например это может быть cat.txt  а звездочка может обозначать любое  количество  символов.(в том числе и  отсутствие символа)    например olo*o.doc*  может выглядеть вот так: ololololololololololololo.docx или вот так ololo.doc  разницы нет ибо эта маска подходят в этим обеим файлам.  ? ba*r.? xt?   может выглядеть так lbraoor.txt  например