ТЕРЕМОК на новый лад (информатика)
СТОИТ В ЛЕСУ ТЕРЕМОК
МИМО ШЕЛ СИСТЕМНЫЙ БЛОК
ПОСТУЧАЛСЯ
– НЕТ ОТВЕТА
И РЕШИЛ ОН - ТАК И БЫТЬ
БУДУ САМ Я В ДОМЕ ЖИТЬ
ПРОВОДА СВОИ ДОСТАЛ
И В ТЕРЕМОК ИХ ЗАПИХАЛ.
ВОТ СТОИТ ОН СРЕДИ ЛЕСА
А НАВСТРЕЧУ МОНИТОР:
- О, ЗДОРОВО, БЛОК СИСТЕМНЫЙ
МОЖНО МНЕ С ТОБОЮ ЖИТЬ
БУДЕМ ДОЛГО МЫ ДРУЖИТЬ? !
- ДА, КОНЕЧНО, ЗАХОДИ
ТОЛЬКО СИЛЫ БЕРЕГИ
ЗНАЙ! НАГРУЗКА НА ТЕБЯ
ОЧЕНЬ СИЛЬНАЯ ЛЕГЛА
ВОТ, ЖИВУТ ОНИ, НО ЧТО-ТО…
НЕ ХВАТАЕТ ИМ КОГО – ТО
ТАК РЕШИЛ СИСТЕМНИК ШНУРОВ
ВДРУГ, ИДЕТ КЛАВИАТУРА
- О, Я ТОЖЕ К ВАМ ХОЧУ
Я ДЕТИШЕК НАУЧУ
НА КОМПЬЮТЕРЕ ПЕЧАТАТЬ
И ………
НЕ УСПЕЛА ОНА СКАЗАТЬ,
КАК ТУТ ПРИШЕЛ МОДЕМ
ОПЯТЬ:
- ПОДКЛЮЧУ ВАС К ИНТЕРНЕТУ
ВСЕ ПРОЧИТАЮТ СКАЗКУ ЭТУ!
ВОТ ИХ ЧЕТВЕРО ЖИВЕТ
ИЗДАЛЕКА ПРИНТЁР ИДЕТ
- РАСПЕЧАТАЮ Я ВАМ
ВАШУ СКАЗКУ ПО СЛОГАМ.
ВОТ ИХ ПЯТЕРО ТЕПЕРЬ,
НО СКРИПИТ В ПРИХОЖЕЙ ДВЕРЬ
И ЗАХОДИТ МЫШКА К НИМ
С ДЛИННЫМ ХВОСТИКОМ
СВОИМ
К БЛОКУ МЫШКА ПОДОШЛА
И СВОЙ ХВОСТИК ОТДАЛА
ПРОВОДА ВСЕ
ПОДКЛЮЧИЛИ
И КОМПЬЮТЕР
ПОЛУЧИЛИ!! !
Program abc;
var a:integer;
BEGIN
writeln ('2+1*3=?');
read (a);
if a=5 then
writeln ('Ты молодец')
else ('Не правильно, попробуй еще раз');
END.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a,b,c:integer; // цифры числа n = abc
var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
var s1:array[1..3] of string:=('первая','вторая','третья');
var s2:array[1..3] of string:=('первой','второй','третьей');
a:=n div 100;
b:=(n div 10) mod 10;
c:=n mod 10;
// сортировка по неубыванию
if a>b then begin Swap(a,b); Swap(i,j) end;
if b>c then begin
Swap(b,c); Swap(j,k);
if a>b then begin Swap(a,b); Swap(i,j) end
end;
if c>b then Writeln(s1[k],' цифра больше остальных')
else
if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
else Writeln('Все три цифры одинаковы')
end.
<u>Примеры</u>
n= 638
третья цифра больше остальных
n= 583
вторая цифра больше остальных
n= 707
первая и третья цифры больше второй
n= 444
Все три цифры одинаковы