tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Информатики, дано трехзначное
Информатики, дано трехзначное число.определить, если в нем нули.
ZhenyaKan11
2 17.07.2019 13:50
1
Ответы
Маргоритка11
03.10.2020 06:28
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.
ПОКАЗАТЬ ОТВЕТЫ
поолра
03.10.2020 06:28
Var a : Integer;
Begin
Readln(a);
If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
даша3619
23.04.2019 20:16
30 ! написать программу на pascal: программа для вычесления площади фигур!...
adamoon44
23.04.2019 21:10
Что делает эта функция? $to = date( m.d.y ); $to=explode( . ,$to); $k = $to[0]; $to[0]=$to[1]; $to[1]=$k; $to = array_reverse($to); $to = implode( - , $to);...
klanana
11.09.2019 13:30
49) вася составляет 3-буквенные слова, в которых есть только буквы к, а, т, е, р, причём буква р используется в каждом слове хотя бы 2 раза. каждая из других допустимых...
AnikaNay
11.09.2019 13:30
Синформатикой, дано число 725000000 данное число можно представить в виде 0,725×10...
artemumnov2
23.05.2020 22:38
Составить программу Для массива, состоящего из 10 элементов и заданных по формуле a[i]:=2*i, вычислить произведение всех его элементов....
jfjjthvhhcj
22.05.2020 22:58
Проект як діяльність,характеризуються ознаками...?варіанти відповідейа)досягненняконкретнихцілейб)складаннямоделі проектув)обмеженатривалість учасіг)пов язані міжсобою...
adelinkalinka15
22.05.2020 22:57
посоветуйте адекватные с нормальным объяснением сайты, видео,курсы для обучения языкам программирования желательно бесплатно...
ruzanayvazyan
21.01.2020 06:34
Сшифрованием rsa фразу зарядили дожди . покажите решение .подберите значения p, q, e, d и зашифруйте и дешифруйте сообщение с использованием алгоритма rsa. ...
Пианино555
21.01.2020 08:26
Проследите на схеме за изменением сигнала и на примере сложения а2 + в2= s2. число а=110,число в=010...
Вадим123214
24.11.2020 17:08
Часть Системы 10 букв 8ая буква е...
Популярные вопросы
Почему проекция АА1 на нижнее основание будет биссектрисой угла...
3
На трьох клумбах 0/2росло 45 троянд. Натретій клумбі росло на5...
1
-4x-3=0; 8x+240=0; (2x-10) •(-5x+18) =0...
3
За тиждень Діана з татом зіграли у шахи 10 партій. Діана виграла...
1
5⋅(3a−6)−3⋅(5a+6)=−48. решите уровнение по частям...
3
решить задачки по физике,желательно с объснением...
3
решить самостоятельную работу по русскому,будет еще несколько во...
3
Скільки різних правильних нескоротних дробів можна скласти із чисел...
3
Определите, к какому стилю относится каждая (фовизм, экспрессионизм,...
3
ЯКА ФІЗИЧНА ХАРАКТЕРИСТИКА ОБМЕЖУЄ МАКСИМАЛЬНУ ТЕМПЕРАТУРУ НАГРІВНИКА?...
1
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.
Begin
Readln(a);
If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.