Var s:real;
begin
readln;
s:=((1+2)/(3+4))/((5+6)/(7+8));
writeln(s);
readln;
end.
1) Объект - книга. Изучение с помощью просмотра и прочтения. Свойства: твёрдая обложка состоящая из картона, тонкие, мягкие страницы состоящие из бумаги.
2) [Если бы Вы написали план характеристики, было бы намного проще] Объект: шкаф (да, я смотрю на шкаф), характеристика:
Сделан из дерева, имеет металлические детали и механизмы выдвижения и открывания ящиков и дверц, в нём можно хранить одежду.
3)Из неограниченного количества: 1-компьютер, тетрадь, ручка; 2-стиральный порошок, зубная паста, 3-школьная меловая доска и т.д.
4)Существенным называется свойство, которое наиболее важно для человека, чтобы использовать или иметь контакт с каким-либо объектом, например при покупке одежды, существенным свойством является размер этой одежды.
(Если помогло, отметьте пожалуйста ответ, как лучший)
Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
Треба взяти 6 смужок по 5 см і одну по 2!!!
var
a: array[1..50] of integer;
i,f, n: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a', i, '=');
readln(a[i]);
end;
f := 0;
writeln;
for i := 1 to n - 1 do
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1;
if f = 0 then
begin
for i := 1 to n do
if a[i] < 0 then write(a[i]:4);
end
else
for i := 1 to n do
if a[i] > 0 then write(a[i]:4);
end.