1. Информатика
  2. Дано натуральное число. узнать:

Дано натуральное число. узнать: если в этом числе цифра 8.

Сладкоезка Сладкоезка    1   29.06.2019 10:00    0

Ответы
svalevayulia10 svalevayulia10  02.10.2020 15:05
Pascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)<>0 then writeln('Есть') else writeln('Нет');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Дамир2207 Дамир2207  16.11.2020 11:56
1. Мощность алфавита N=127. Какое количество информации несет одна буква? побыстрее...
xastek xastek  16.11.2020 11:56
Планетарийде колданылатын 3D модельдерди аныкта.дурыс жауап саны:2​...
asyunyasavints asyunyasavints  07.05.2020 13:45
Вправа 23Написати програму малювання вулиці з кіль-кома будинками з огорожею ​...
Артем2090 Артем2090  07.05.2020 13:45
Что выведет программа при вызове F(4)? ответ запишите последовательность выведенных цифр слитно(без пробелов)...
nastyakostikov1 nastyakostikov1  07.05.2020 13:45
Как вы думаете какие этапы создания 3D объекта?...
Elfsp1r1t Elfsp1r1t  10.03.2021 22:31
, как на языке СИ сделать заливку рисунка #include main() { initwindow(400, 300); circle(20,40,20); circle(200,40,20); line(40,40,180,40); line(40,40,110,0); line(110,0,180,40);...
mcmorgana mcmorgana  10.03.2021 22:31
Конспект 6 класса по информатике, 13 параграф...
varvarasitikova varvarasitikova  16.05.2019 13:57
От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: -.--.--.. при передаче радиограммы было потеряно разбиение...
UNDEADrevolution UNDEADrevolution  16.05.2019 13:58
Постройте таблицу для истинности для высказывания (а или в) и c...
darya666666666666 darya666666666666  16.05.2019 14:03
Втаблице запросы к поисковому серверу. расположите номера запросов в порядке убывания количество страниц, которые найдет поисковый сервер по каждому запросу. для...

Популярные вопросы