Если тебе надо вывести ещё на экран в паскале, то необходимо её записать в одинарных ковычках ' } ' чтобы её напечатать, при английской раскладке клавиатуры нажми шифт + Ъ или шифт + Х
пример вывода скобки на экран: Var a:integer;
Begin
Writeln('{ }');
end.
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
В языке Pascal команда for всегда совершает шаг, равный единице
Это можно проверить с помощью программы:
<h2>var i: integer;</h2><h2>begin</h2><h2>for i:=1 to 10 do</h2><h2>writeln(i);</h2><h2>end.</h2>
Счётчик i увеличивается на 1, следовательно шаг всегда равен единице.
Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>