Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
Uses crt;
Var
mas:array[1..10, 1..10] of integer;
i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
for k:=1 to 10 do
mas[i,k]:=random(10)+1;
for i:=1 to 10 do begin if minln>0 then break; pr:=0;
for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
if (pr = 10) then minln:=i;
end; end;
Writeln('Минимальный номер строки с чётными числами - ',minln);
Writeln('Вот она');
for k:=1 to 10 do write (mas[minln,k],' ');
<span>End.</span>
Ответ:
ofstream fout("rez.txt");
fout << "privet";
Объяснение:
выводит "fout"