Var a, b : integer;
Begin
Write('Введите число а: ');
Readln(a);
Write('Введите число b: ');
Readln(b);
If a < b then begin
A := 0;
B := a * b;
Write('a = ', a, 'b = ', b);
End
Else
Begin
B := 0;
A := a * b;
Write('a = ', a, 'b = ', b);
End;
End.
Наверное тег < р> текст </р>. Больше я нечево тут не заметил
А тогда свойства justify будет виравнивать текс по всей ширине
program
zadagha_1;
var
a:
array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite
8 chisel');
for i:=1 to
8 do read(a[i]);
sum:=0;
for i:=1 to
8 do begin
if i mod 2
<> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa
elementov c nechetnim N =', sum);
end.
program
zadagha_2;
var
b:
array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite
chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to
n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(a);
write
('elementi > dannogo chisla: ');
for i:=1 to
n do begin
if
b[i]>a then write (i:4);
end;
end.
program
zadacha_3;
var
a:
array[1..100] of integer;
i,n,k:
integer;
begin
n:=random(100);
for i:=1 to
n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(k);
writeln('v
massive chisly ',k, ' kratni: ');
for i:=1 to
n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.
При переводе числа 10101011 из 2-ной в 10-ую:
171