Решить задачу можно так:
var i,sum:integer;
begin
sum:=0; i:=0;
while sum<1322 do
begin
i:=i+1; sum:=sum+i;
end;
writeln(i,' ',sum);
writeln('Дважды написали ',i-(sum-1322));
<span>end.
Получается 47</span>
Var n,i:Integer;
begin
i:=0;
repeat
Readln(n);
if (n mod 2=0) and (n<>0) then
Inc(i);
until n=0;
Writeln;
Writeln(i);
readln;
<span>end.</span>
Пожалуйста поставь 5 звёзд и лайк, я очень старался
Актуальность разработки данной проблемы обусловлена тем, что государственная информационная политика (ГИП), ее формирование и реализация на современном этапе доктринально и насущно выдвигаются на передний план политики российского государства.
program noname;
uses crt;
var
a:array[1..1000,1..1000] of integer;
i,j,min,n,m,l:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
writeln;
for i:=1 to n do begin
min:=0;
for j:=1 to m do
if min>a[i,j] then begin min:=a[i,j]; l:=j; end;
if min<>0 then
writeln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)
else writeln ('v ',i,' stroke otricatelnyh chisel net');
end;
readkey;
end.
1) текст, число, график, бумага
2) клавиатура, джойстик, сканер, принтер
3) монитор, плоттер, принтер, мышь
4) винчестер, дискета, компакт диск, процессор
5) перфолента, дискета, перфокарта, монитор
6) телефон, модем, телефакс, память
7) слух, вкус, обоняние, мозг