Program rp1;
uses crt;
var a: array [1..15] of integer; i: integer;
begin
clrscr;
randomize;a[i]:=random (41)-20;
writeln ('massiv ');
for i:=1 to 15 do
write (a[i], ' ');
for i:=1 to 15 do
if a[i]< 0 then a[i]:=sqr (a[i]) else a[i]:=sqrt (a[i]);
writeln ('novij massiv ');
for i:=1 to 15 do
write (a[i], ' ');
end.
Сравниваем с лазерным принтером.
Достоинства:
- ниже стоимость принтера;
- дешевле расходные материалы при печати среднего качества;
- более точная цветопередача;
- позволяет наносить изображение на различные материалы, например, на СD/DVD;
- практически бесшумная работа;
- ниже энергопотребление.
Недостатки:
- существенно меньшая производительность;
- менее стойкое к выцветанию изображение;
- для получения изображения высокого качества нужны дорогие качественные материалы;
- засыхание чернил в печатающей головке.
Нужно трёхзначное число разбить на 3.Для этого нам нужно 3 переменных, пусть это будет a,b,c.
Будем делать на примере числа 123, то есть n:=123.
Чтобы выделить единицу пишем это a:=n div 100;
Теперь выделяем двойку b:=(n div 10) mod 10;
Тройку c:=n mod 10.
Теперь собственно сама сумма, берём ещё одну переменную, пусть будет sum. sum:=a*a +b*b+c*c;
Ну а дальше просто выводи sum,думаю знаешь как)
А) 2 6 10 14 18 22 26 30
б) 1 4 7 10 13 16 19
Свой ряд: 0 2 4 6 8 10 12 14 16 18 20
26+26 вроде так...........................