var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
1.
89=1011001
600=1001011000
2010=11111011010
2.
513=1000000001(в 2)=1001
600=1130
2010=3732
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
program raf105;
var V,t,x: integer;
begin
write('Скорость поезда V(км/час.) = ');
readln(V);
write('Время в пути t(час.) = ');
readln(t);
x:= V*t;
writeln('Пройденное расстояние: ',x,' (км.)');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
if k=3
then writeln('Номер третьего положительного элемента = ',i)
else writeln('В массиве нет 3 положительных элементов');
end.
Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2
Номер третьего положительного элемента = 6