1.Растр выглядит в виде точек - Пикселей.
<span>Векторное изображение задается формулами.
2.Т</span>ем что существуют разные программы выполняющий разный тип задач и для каждый из них нужно, что то свое.
var
n : integer;
begin
write('введите номер месяца ');
readln(n);
case n of
1, 2, 12 : writeln('зима');
3..5 : writeln('весна');
6..8 : writeln('лето');
9..11 : writeln('осень');
else writeln('за гранью разумного');
end;
end.
Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение:
K:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then k:=k+1;
Var a:string;
b,c:integer;
beginwriteln('Привет, как тебя зовут?');
readln(a);
writeln(a, ', cколько тебе лет?');
readln(b);
writeln(a, ', и тебе ', b, 'лет, в каком году ты родился?');
readln(c);
writeln(c, ', хорошо!');
writeln('Мне пора идти, пока ', a, '!');
<span>end.</span>