Определите, что будет напечатано в результате работы следующей программы. Var s, k: integer;Begin s := 0; for k := 4 to 8 do s := s+7; writeln(s);End. Определите, что будет напечатано в результате работы следующей программы.var s, k:integer;begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s);end.Определите, что будет напечатано в результате работы следующей программы.var s, k:integer;begin s:= 0; for k:= 4 to 11 do s:= s + k; writeln (s);end.С решениями

ответ:это метасимволы

Объяснение:

Для каждого понятия языка должна существовать единственная мета-

формула, в левой части которой указывается определяемое понятие, т.е.

метапеременная языка БНФ, а правая часть формулы тем или иным

бом задает все множество значений этой метапеременной, т.е. все допусти-

мые конструкции, которые объединяются в это понятие. Для большей

наглядности все понятия (метапеременные) обычно заключаются в спе-

циальные угловые скобки " < " и " > " (предполагается, что эти скобки не

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

ми), например (число), <арифметическое выражение) и т.д.

//PascalABC.NET Версия 3.0 Сборка 1150
var n:integer;
begin
  writeln('Сколько стоит товар?');
  readln(n);
  n:=1000-n;
  writeln('Сдача ',n,' рублей. Нужны купюры:');
  writeln(n div 500, ' по 500 рублей, ', (n-(n div 500)*500)div 100, ' по 100 рублей, ', (n mod 100) div 50, ' по 50 рублей, ', (n-(n div 50)*50) div 10,' по 10 рублей, и ещё ', n mod 10, ' рублей мелочью.');
end.

Результат работы:
Сколько стоит товар?
324
Сдача 676 рублей.
Нужны купюры:
1 по 500 рублей, 1 по 100 рублей, 1 по 50 рублей, 2 по 10 рублей, и ещё 6 рублей мелочью.