Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
Специальный значок в левом верхнем углу.
Нажать на ФАЙЛ, Сохранить, Сохранить как.
Клавишами ctrl + s
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<-----
k := a;
while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
если
a=15 b=36
ответ будет :15
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
Var n:integer;beginreadln(n);if n>0 then writeln(1);if n<0 then writeln(-1);if n=0 then writeln(0);end.
