В логике с помощью кругов Эйлера.
Эйлера-венна
1) на Pascal:
var
t,i,j:integer;
a:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
write('Vvedite ',i,'-i 4islo: ');
readln(a<span>);
end;
for i:=2 to 4 do
for j:=4 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
writeln('Raspolagaem 4isla v poryadke vozrastaniya:');
for i:=1 to 4 do
writeln(a<span>);
readln;
end.
2) на С:
#include <stdio.h>
#include <conio.h>
void main(void){
int n,a,b,c,d;
printf("\nVvedite 4x-znachnoe chislo n: ");
scanf("%i", &n);
a=n/1000;
b=(n-a*1000)/100;
c=(n-a*1000-b*100)/10;
d=n-a*1000-b*100-c*10;
if (a+b==c+d) printf("true");
else printf("false");
getch(); </span></span>
Ответ: 18
Обоснование:
Var a,b,c : Integer;
Begin
a:=1257; c:=0;
while a>0 do begin
if a mod 2<>0 then b:=a mod 10; c:=c+b;
a:=a div 10; end;
Writeln(c);
end.
Var a,i,k:integer;
begin
readln(a);
for i:=2 to a-1 do
if (a mod i)=0 then k:=k+1;
if k=0 then writeln('Простое')
else writeln('Сложное');
<span>end.</span>
И матричные, и литерные принтеры относятся к принтерам ударного типа, однако литерные принтеры формируют изображение сразу готовыми знаками, а матричные - точками.
P.S. На схеме изображена классификация принтеров, а на нижней картинке - принцип формирования изображения в матричном принтере.