<u>1. Самый незатейливый вариант, выдающий значение суммы 21</u>
begin
Writeln(1+2+3+4+5+6)
end.
<u>2. Типовой "школьный вариант"</u>
var
i,s:integer;
begin
s:=0;
for i:=1 to 6 do s:=s+i;
Writeln(s)
end.
<u>3. Современный вариант, немного покороче</u>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(6).Sum.Println
end.
X - количество символов в сообщении:
8x + 344= 16x
8x = 344
x = 344 / 8 =
Ответ: в сообщении 43 символа.
Вы можете скопировать на свои диски ненужную для вас информацию со школьного компьютера
Есть опасность заражения компьютера вирусом
От частого использования разъемов компьютера они могут испортиться
Нельзя в компьютер вставлять большое количество носителей информации
Для любого натурального n верно что последняя цифра числа 6^n=6.
При n=0 получаем 6^0=1 и последняя цифра 1.
При n<0 задача в общем случае неразрешима.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(ReadInteger('n=')=0 ? '1' : '6')
end.
Хочу попередити зразу, що в різних версіях програми алгоритм може дещо відрізнятися.
1. Вибрати в документі МІСЦЕ, куди буде вставлятися зображення.
2. Виконати Вставлення => Зображення => Із файлу.
3. Вибрати у вікні ВСТАВЛЕННЯ ЗОБРАЖЕННЯ потрібний файл.
4. Вибрати кнопку ВСТАВИТИ.