Ответ 4( Adobe flash player бесплатный)
Program n1; var a: integer; d,p: real; begin write('введите число: '); readln(a); p:= (a mod 10)*((a mod 100)-(a mod 10))/10; d:= (((a mod 100)-(a mod 10))/10)/(a mod 10); writeln('произведение: ',p); writeln('частое: ',d); end.
Объем , цвет(возможен ) , форма
Как я знаю :
1.Выделить текст.
2. Условное форматирование.
3. Гистограмма.
4. Градиетная заливка.
Все проверялось с помощью программы(код ниже):
3 16
8 13
13 10
11 14
16 11
______
9 5
7 9
12 6
10 10
15 7
13 11
11 15
16 12
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var x:= ;
var y:= ;
Println(x,y);
while x<16 do
begin
if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
Println(x,y);
end;
end.