Some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
Var
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.
По сути, решается уравнение
7х-6у=6
Решение только одно.
6 раз вперед 7
7 раз назад 6
Program n_1;
var a: array [1..12] of integer; i, n, x:integer;
begin
n:=-1;
for i:=1 to 12 do read(a[i]);
readln(x);
for i:=1 to 12 do if x=a[i] then begin n:=i; writeln('Yes'); Writeln(n); break; end;
if n=-1 then writeln('No');
end.