Дана программа:
Program Primer,
Var
M, result: real;
Begin
Writeln('Введите значения переменной М');
Write('M=');
Readln(M);
Result := sqr((5+M)*5);
Writeln (sqr(5+M)*5), result:8:0);
Readln;
End.
Запусти Паскаль, введи данную программу, получи результат, если и
(в окошко для ответа залишили только числовое значение!​

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

3+3-3: 3=5

3-3+3+3=6

3: 3+3+3=7

3*3-3: 3=8

3*3*3: 3=9

3* 3+3: 3 = 10