По методу описания символов:растровые,векторные,контурные и алгоритмические
По размеру кегельной площади знака :моноширинные и пропорциональные
По типу рисунка:рубленые,с засечками,декоративные и рукописные
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
<h2>Задание 1</h2>
Иван ⇒ 21 31 11 62
<h3>Ответ</h3>
21 31 11 62
<h2>Задание 2</h2>
32(К) 11(А) 81(З) 11(А) 63(Х) 23(С) 33(Т) 11(А) 62(Н)
<h3>Ответ</h3>
Казахстан
Var a,i,j,b,p,p1,max:longint;
m:array[0..501,1..500] of longint;
begin
read(a,b);
for i:=1 to a do
for j:=1 to b do
read(m[i,j]);
p:=1;
p1:=1;
max:=m[1,1];
for i:=1 to a do
for j:=1 to b do
if m[i,j]>max then
begin
p:=i;
p1:=j;
max:=m[i,j];
end;
writeln(p,' ',p1);
<span>end.</span>