sabinina0578
?>

Сообщение о роберте виннере .какой вклад сделал в кибернетику

Информатика

Ответы

BekturMagometovich189
Программа на языке PascalABC

program raf105;

var abc,ab,bc:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

ab:= abc mod 100;

bc:= abc div 10;

if ab = bc

 then writeln('Число состоит из одинаковых цифр')

 else writeln('Число не состоит из одинаковых цифр');

end.

Объяснение

Для выполнения задачи достаточно найти первые 2 цифры и последние 2 цифры если они равны, то число состоит из одинаковых цифр

abc mod 100 Убирает все сотни из числа.

Например было число 123, стало 23.

482 стало 82

abc div 10 Считает сколько в числе целых десяток, но не считает остаток.

Например было число 123, стало 12

482 стало 48

Сравнивание 2 первых и 2 последних цифр

253      25 и 53 не равны, значит число не состоит из одинаковых цифр

121       12 и  21 не равны, значит число не состоит из одинаковых цифр

111        11 и 11  равны, значит число состоит из одинаковых цифр

keykov35
Создать книгу – это искусство. Над книгой трудится огромное число людей. Изготовление книги включает в себя множество технологических процессов, каждый из которых – воплощение ума, труда мастеров и достижений науки и техники. 
1. набор текста 
2. редактирование 
3. форматирование и верстка страниц 
4. изготовление форм (афсет), либо напрямую на печатную машину посредством ввода-вывода с компьютера (как на принтер) машины ротопринтерные тираж до 5000 экз. 
5. печатание страниц на печатном станке 
6. Брошурование и сшивание страниц (если типа бесцеллера то склеивание) 
7. обрезание краев на гильятине (станок такой) 
8. выход книги в свет.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сообщение о роберте виннере .какой вклад сделал в кибернетику
Ваше имя (никнейм)*
Email*
Комментарий*

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

officem695
garunkhachatryan
Popov Valentina1324
Konstantinovna Ilyukhin1618
eshabunina
Кристина Валентиновна
Платон Демцун
Наталья Юрьевич1228
nataliarogacheva
Irina
Марина Федорович924
Наталья Юрьевич1228
Belov Yekaterina639
MikhailovichKrizhnaya578
D.Yu. Polina1703