Pascal Задача: Дано натуральное число

Pascal Задача: Дано натуральное число

Пользователь Ник спрашивает Pascal Задача: Дано натуральное число

Определить номер цифры 3 в нем, считая от конца числа. Если такой цифры нет, ответом должно быть число 0, если таких цифр в числе несколько — должен быть определен номер самой правой ищ них.

Пользователь #7170009673 добавил ответ
как то так, но Pascalя нет и проверить не могу, если чё сам доделаешь…
program ggg
uses crt;
var a:string;
b,c:integer;
begin
c:=0;
writeln(‘введите число’);
read(a);
for b:= length(a) downto 1 do
if a[b]=’3’ then begin
writeln(‘номер: ’, b);
b:=1;
end;
else writeln(‘номер: ’, c);
end.

Пользователь #7042617042 добавил ответ
if a=’3’ then begin
writeln(‘номер: ’, b);
b:=1;

Присваивать переменной цикла в нутри блока нехорошо, хотя и изящнее
чем принудительный выход из цикла

Отзывов пока нет

Ответить