uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
1) Объект - книга. Изучение с помощью просмотра и прочтения. Свойства: твёрдая обложка состоящая из картона, тонкие, мягкие страницы состоящие из бумаги.
2) [Если бы Вы написали план характеристики, было бы намного проще] Объект: шкаф (да, я смотрю на шкаф), характеристика:
Сделан из дерева, имеет металлические детали и механизмы выдвижения и открывания ящиков и дверц, в нём можно хранить одежду.
3)Из неограниченного количества: 1-компьютер, тетрадь, ручка; 2-стиральный порошок, зубная паста, 3-школьная меловая доска и т.д.
4)Существенным называется свойство, которое наиболее важно для человека, чтобы использовать или иметь контакт с каким-либо объектом, например при покупке одежды, существенным свойством является размер этой одежды.
(Если помогло, отметьте пожалуйста ответ, как лучший)
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
В общем. Начерти окружность, квадрат, прямоугольник, параллелограмм и ромб.
После чего пиши: Ни одна из предложенных фигур графически не похожа на другую - истинное. Все рисунки являются геометрическими фигурами - истинное.
Все фигуры имеют углы - ложное. Некоторые фигуры имеют объём - ложное.