Информатика- дисциплина, изучающая структуру и общие свойства научной информации, а также закономерности её создания, преобразования, передачи и использования в различных сферах человеческой деятельности.
текстовый редактор-самостоятельная <u>программа </u>или компонент программного комплекса , предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности
графический редактор- программа, осуществляющая работу с графической информацией (Штриховыми и растровыми изображениями).
Алгоритм содержит условие, условие - это признак разветвленного алгоритма. Ну или ветвление по другому.
Не видно, если хочешь можешь удалить мой ответ, но я лично не вижу из-за темноты=(
Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore
Uses graphabc;
procedure vvod(var a,b: integer);
begin
writeln('Введите ширину отступа');
read(a);
writeln('Введите ');
read(b);
end;
procedure squares(r,nachdl: integer);
var x1,y1,x2,y2: integer;
begin
y1:=0;
x1:=0;
x2:=nachdl;
y2:=nachdl;
while x2<windowheight do
begin
drawrectangle(x1,y1,x2,y2);
x2:=x2+r;
y2:=y2+r;
nachdl:=nachdl+r;
end;
end;
var
r,nachdl: integer;
begin
vvod(r,nachdl);
squares(r,nachdl);
<span>end.</span>