//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=0;var t:=0;
for var i:=1 to 3 do
begin
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Или как в школах учат ->
var a,t:integer;
begin
for var i:=1 to 3 do
begin
a:=0; t:=0;
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
<span>from random import randint
mas = [randint(50,100) for i in range(10)]
print(mas,'\nSuma',sum(mas))</span>
<span>Информация
в нашей жизни играет огромную роль. Благодаря информации, человек учиться
мыслить, формирует свои взгляды на те или иные вещи. Без информации не
существовало бы общества. Существует множество видов информации. Мы получаем её
когда слушаем кого-то, рассматриваем, нюхаем и даже трогаем. Очень важно
фильтровать информацию, которую получаешь. Нельзя запоминать всё, что видишь и
слышишь (это засоряет твою речь и твой разум). Существует так-же дезинформация.
Дезинформацией называется один из способов манипулирования информацией, как то
введение кого-либо в заблуждение путём предоставления неполной информации или
полной, но уже не нужной информации, или полной, но не в нужной области,
искажения контекста, искажения части информации.</span>
//PascalABC.NET
var
b : array of integer;
m : integer;
begin
// Ввод данных
var n := ReadInteger('Введите число N всех чисел массива: ');
var k := ReadInteger('Введите число К "красивых" чисел: ');
writeln('Введите все числа в массиве');
var a := ReadArrInteger(n);
// Резервируем место для слагаемых
b := new integer[k];
// Просмотрим все данные числа
foreach var i in a do
// Выберем только кратные трем
if i mod 3 = 0 then begin
// Если есть свободное место, поместим туда
m := b.FindIndex(x -> x=0);
if m <> -1 then b[m] := i
else
// Если свободного места нет, найдем наибольший элемент
// и заменим его
begin
m := b.FindIndex(x -> (x>i) and (x=b.Max));
if m <> -1 then b[m] := i;
end;
end;
// Выведем сумму
write('Сумма элементов - ', b.Sum)
end.
Абзац є ключовим елементом у структурі документа для багатьох текстових процесорів.
Указані операції включають установку границь абзаців і абзацних відступів, вирівнювання, а також вмикання переносу слів.
Установку границь абзаців здійснюють за. допомогою маркерів відступів, що знаходяться на координатній лінійці, або відповідними командами меню.
Вирівнювання (виключна). Розрізняють чотири види горизонтального (вліво, вправо, по центру, по ширині) і три види вертикального вирівнювання (вгору, вниз, по висоті).
Перенос. При вимкнутому режимі автоматичного переносу слово, яке не помістилося на рядку, повністю переноситься на наступний рядок. Це не додає тексту елегантності; його правий край залишається нерівним. Для поліпшення зовнішнього вигляду тексту використовують режим переносу. При ручному варіанті переносу користувач сам визначає місце переносу, вводячи дефіс, і жорстким переведенням каретки (натисканням на клавішу <Enter>) переходить на наступний рядок. Використання такого режиму переносу призводить до необхідності видалення дефісів при повторному форматуванні тексту документа.
При ввімкнутому режимі автоматичного переносу реалізується м'який варіант переносу: текстовий процесор сам ділить слово на склади і переносить його найкращим способом. Цей режим не створює ніяких труднощів при повторному Форматуванні.