var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
Программа:
var i,a,a1,a2,a3: integer;
begin
for i:=101 to 999 do
begin
a:=i*i;
a1:=a mod 1000 div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);
end;
end.
Результат:
462 213444
538 289444
962 925444
const nx =30;var i,j,n,a:integer;
M,B:array[1..nx] of integer;
begin
Randomize;
write('Введите число элементов массива n'); Read(n);
write('Введите число а '); Read(a);
for i:=1 to n do begin
M[i]:= random(10)-5;
if M[i] = a then begin j:=j+1;B[j]:=i;end;
write(M[i]:3);end;writeln;
for i:=1 to j do
writeln('Элемент массива совпадает а = ' ,a, ' на позиции ', B[i]);<span>end.</span>
<span>Программа, запускаемая при включении персонального компьютера, осуществляющая диалог с пользователем, организующая управление ресурсами компьютера и реализующая выполнение других программ, называется о<span>перационной системой.</span></span>