Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.01.2015 01:22
- Информатика
- remove_red_eye 19175
- thumb_up 13
Ответы и объяснения 1
var x,y , i: integer;
var a,b,k : integer;
var an, bn : integer;
answer1, answer2, answer3, answer4 : boolean;
begin
writeln('Введите натуральное число:');
readln(x);
writeln('Введите цифру a:');
readln(a);
writeln('Введите цифру b:');
readln(b);
writeln('Введите число k:');
readln(k);
repeat
y:=x mod 10;
x:=x div 10;
i+=1;
if y = a then an+=1;
if y = b then bn+=1;
until x=0;
if an>0 then answer1:= true;
if bn=0 then answer2:= true;
if a>k then answer3:= true;
if (an>0) and (bn>0) then answer4:= true;
writeln('а) Определить, есть ли в нем цифра a: ', answer1);
writeln('б) Верно ли, что в нем нет цифры b: ', answer2);
writeln('в) Верно ли, что цифра a встечается в нем более k раз: ', answer3);
writeln('г) Определить, есть ли в нем цифры a и b: ', answer4);
end.
- 26.01.2015 11:09
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.