var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.
Выбранный вариант и так подразумевает utf-8 без BOM заголовка
НАЧАЛО
ВВОД ( n )
ПОКА ( i < n )
i = i + 1
ВВОД ( x )
ЕСЛИ ( x mod 3 == 0 ) И ( x mod 4 != 0 )
ТО ВЫВОД ( x )
КОНЕЦ
Кластер — группа компьютеров, объединённых высокоскоростными каналами связи, представляющая с точки зрения пользователя единый аппаратный ресурс. Кластер - слабо связанная совокупность нескольких вычислительных систем, работающих совместно для выполнения общих приложений, и представляющихся пользователю единой системой.