Ответ:
program Friendly;
uses
SysUtils; // для IntToStr
var
a, b, i, pa, pb: LongInt;
sa, sb: string;
f: Boolean;
begin
Write ('A, B = ');
ReadLn (a, b);
sa := IntToStr (a);
sb := IntToStr (b);
f := True;
for i := 0 to 9 do begin
pa := Pos (IntToStr (i), sa);
pb := Pos (IntToStr (i), sb);
if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin
f := False;
Break;
end;
end;
if f then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
end.
Ну как-то так у меня вышло на скорую руку
Плюшевый мишка. Он белый,пушистый,милый мишка. Он умеет стоять ,лежать ,сидеть и смотреть.
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.
1.Устройство компьютера 1) Питание 2) Процессор 3) Видеокарта 4) Память 5) Материнская плата 6) Винчестер 7) Корпус 8) Дисковод
2)
1. Питание- Вторичный источник электропитания, предназначенный для снабжения узлов компьютера электроэнергией постоянного тока путём преобразования сетевого напряжения до требуемых значений.
2. Процессор- это основной элемент компьютера, с помощью которого обрабатывается информация, находящийся как в свободной памяти, так и в памяти других устройств.
3. Видеокарта- это устройство которое хранит содержимое памяти компьютера.
4. Память- это часть вычислительной машины, или среда для хранения данных компьютера.
5. Материнская плата- это печатная плата,являющаяся основой построения модульного устройства.
6.Винчестер- это жёсткий диск, который является основным накопителем данных в большинстве компьютерах
7. Корпус- это системный блок, наполненный аппаратами обеспечения для создания компьютера.
8. Дисковод- Устройство компьютера,позволяющее осуществить чтение и запись информации на съёмном диске.