Информатики, помогите!! Дано трехзначное число.Определить, если в нем нули.
Ответы на вопрос
Ответил Аноним
0
Var
a:string;
i,n:integer;
Begin
Write('Введите число ');
Readln(a);
for i:= 1 to 3 do
if a[i] = '0' then Begin write('Ноль есть'); n:=1; break; End;
if n<>1 then write('Нулей нет');
End.
a:string;
i,n:integer;
Begin
Write('Введите число ');
Readln(a);
for i:= 1 to 3 do
if a[i] = '0' then Begin write('Ноль есть'); n:=1; break; End;
if n<>1 then write('Нулей нет');
End.
Ответил KarimHoroshist
0
КанВул ты в вк есть ?
Ответил APALoff
0
По условию дано именно число, а не строка. Но даже если и позволительно использовать строку, то цикл не нужен - достаточно использовать встроенную функцию POS: If POS('0',a)>0 then Writeln('ноль есть') else ...
Ответил KarimHoroshist
0
Что ? я нечего не понял)))
Ответил APALoff
0
Я комментарий оставлял для КанВула
Ответил Аноним
0
Можно через POS, но только я писал для выполнения домашнего задания (он бы не смог объяснить учителю)
Ответил APALoff
0
Var a : Integer;
Begin
Readln(a);
If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.
Begin
Readln(a);
If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.
Ответил Аноним
0
Какая бурная дискуссия по этой теме
Ответил APALoff
0
))
Ответил Аноним
0
всю ленту уведомлений мне запачкали
Ответил APALoff
0
ну больше не буду... засим откланиваюсь
Ответил KarimHoroshist
0
Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр
числа, в противном случае отбросить последнюю цифру. Помогите !! я создал вопрос тоже 30 баллов даю
числа, в противном случае отбросить последнюю цифру. Помогите !! я создал вопрос тоже 30 баллов даю
Новые вопросы