Program N3;var b,a:integer;begin b:=0; write('Введите число - ');readln(a); repeat a:=a*3; b:=b+1; until a>100; writeln('Нужно умножить ', b, ' раз');end.
<span>program test;
var
i, n: word;
begin
write('Введите число: ');
readln(n);
for i := 1 to n do begin
write(i, ' ')
end;
<span>end.
Блок-схему прикрепил</span></span>
Const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end; writeln; writeln;
for i:=1 to n do begin for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum);<span> end.</span>
var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.