<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
PascalABC.NET:
<em>program colors;</em>
<em>begin</em>
<em>writeln('черный');</em>
<em>writeln('коричневый');</em>
<em>writeln('красный');</em>
<em>writeln('жёлтый');</em>
<em>end.</em>
Примечание:
write('some_text%') - написать some_text%
writeln('some_text%') - написать some_text% и перейти на следующую строку
Ответ: такая же задача уже была сегодня, поэтому дублирую свой ответ еще раз:
program TorLoki;
var
n, m: Integer;
T, L: Double;
begin
Write ('Введите N и M: ');
ReadLn (n, m);
L := n / (m - 1);
T := L + n;
WriteLn ('Сила Тора = ', T :10 :6);
WriteLn ('Сила Локи = ', L :10 :6);
ReadLn;
end.
Объяснение:
нужно решить систему уравнений:
T = L + N
T = L * M
получается
L * M - L = N
L (M - 1) = N
L = N / (M - 1)
это сила Локи, а для Тора:
Т = L + N или T = L * M можно и так и так
Матричный принтер :
Такие принтеры считаются устаревшими,но иногда они тоже востребованы.Графические возможности таких принтеров ограничены. На таком принтере набор иголок(матрица) создаёт изображение,нанося в нужный момент удары по бумаге через красящую ленту.Качество изображения здесь зависит от иголок.
Струйный принтер :
Такие принтеры можно считать самыми популярными.Они позволяют получать цветные текстовые и графические изображения высокого качества.Также они иммеют приемлемую цену.При печати на таких принтерах маленькие капли красителя выпрыскиваются на бумагу.Чернила подаются непрерывной струёй , откуда и название этих принтеров.
Лазерные принтеры :
Для получения изображения используются лазерные лучи.Эти принтеры обладают большей скоростью печати и могут работать без перерыва длительное время.Но эти принтеры стоят дороже .Скорость этих принтеров измеряется количеством страниц напечатанных в минуту.
Надеюсь эта информация вам поможет))))
Program Trykutnyk;
uses Crt;
const a=5; b=3.6; c=4.2;
var p,s: real;
begin
clrscr;
p:=a+b+c;
writeln('p=', p:5:2);
p:=p/2;
s"=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=', s:5:2);
writeln('Имя Фамилия');
readln
end.