Var
a: integer;
begin
read (a);
write ((sqr(a mod 10)) mod 10);
end.
Если ты не знаешь как создать сейчас скажу.
живешь на правую кнопку мыши там было зимы программу itunes создать и выбираешь папку и как они там документ кто принес на папку потом нажимаю на папку опять только уже левой кнопкой мыши и там вылазит еще открытие удалить и так далее ты нажимаешь изменить имя стираешь новая папка или пишешь свое название папки. заполняющая телефон для музыки на galaxy ты сразу туда туда добавляешь очень много музыки чтоб появилась песня на мелодию на нее появилась ты создал все
<span><span><span>
Аккорд - комбинация нажатия клавиш Ctrl+Alt+Del
</span><span>Баг - ошибка в программе
</span><span>Балалайка - виртуальная машина
</span><span>Барсик - язык Basic
</span><span>Батон - кнопка, клавиша
</span><span>Бипер - встроенный динамик
</span><span>Болванка - пустой оптический диск для записи
</span><span>Бродилка - игра жанра "квест" или "шутер"
</span><span>Ведро - упаковка из 50 болванок (см. выше)
</span><span>Вика - видеокарта
</span><span>Винда - Microsoft Windows
</span><span>Винт - жесткий диск ("винчестер")
</span><span>Демка - демонстрационная версия программы
</span><span>Лава - деньги
</span><span>Ламер - неумелый пользователь компьютера с завышенной самооценкой
</span><span>Ноут - ноутбук
</span><span>Парс - парсер, синтаксический анализатор.
</span><span>Проц
</span></span></span>- процессор
Кроме того, обнаружено слово "куб", но возможно это слово не жаргон, - по крайней мере, я его никогда не встречал среди жаргонных слов.
//Pascal ABC.NET 3.1 сборка 1219
Var
x1,x2,x3,y1,y2,y3:integer;
p1,p2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
p1:=(y3-y1)/(y2-y1);
p2:=(x3-x1)/(x2-x1);
if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.
Пример ввода:
1
1
2
2
3
3
Пример вывода:
<span>На одной прямой</span>