Program aliona; const n =10; var a:array[1..n,1..n] of integer; i,j,s:integer; begin randomize; for i:=1 to n do for j:=1 to n do begin a[i,j]:=random(30); write ( 'а(', i, ',', j, ')=', a[i,j]); end ; s:=0; for i:=1 to n do begin for j:=1 to n do begin if a[i] (mod 2 =0) and (a[i]<0) then s:=s+a[i]; writeln('s=',s); readln; end.
Сегодня уже сложно представить себе жизнь без печатающих устройств. Перенести информацию на бумажный носитель время от времени бывает просто необходимо. Школьникам нужно распечатывать доклады, студентам – дипломы и курсовые, сотрудникам офисов – документы и договора.
Существует несколько типов принтеров. Отличаются они по принципу печати, формату используемой бумаги, типу печатных материалов и другим признакам. Рассмотрим принцип работы двух типов печатающих устройств – лазерного и струйного.Принцип работы струйного принтера Прежде всего рассмотрим, как же работает струйный принтер. Стоит сразу оговориться, что по качеству печати он немного отстает от лазерного. Однако и стоимость струйного принтера существенно ниже. Данный вид принтера прекрасно подходит для дома. С ним легко обращаться, и он прост в обслуживании.Если говорить о принципе работы лазерного и струйного принтеров, то они кардинально отличаются. Основное различие состоит в технологии подачи чернил, а также в устройстве аппаратной части. Обсудим для начала, как же работает струйный принтер. Я не очень поняла задачу!?
//2 var a, b, c: real; begin write('Введите стороны треугольника A B C: '); readln(a, b, c); writeln('Периметр = ', a + b + c); end.
//3 var a, b: real; begin write('Введите стороны прямоугольника A B: '); readln(a, b); writeln('Площадь = ', a * b); writeln('Периметр = ', 2 * (a + b)); end.
//4 var a, b, c: real; begin write('Введите ребра A, B, C: '); readln(a, b, c); writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1); writeln('Объем = ', (a*b*c):0:1); end.
//5 var r: real; begin write('Введите радиус: '); readln(r); writeln('Длина окружности = ', (2 * pi * r):0:1); end.
const n =10;
var a:array[1..n,1..n] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(30);
write ( 'а(', i, ',', j, ')=', a[i,j]);
end ;
s:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i] (mod 2 =0) and (a[i]<0) then s:=s+a[i];
writeln('s=',s);
readln;
end.