Сын жасаңдар
.
2
-
мысал
негізінде
«
Санның
үлкені
»
тақырыбында
жоба
жұмы-
var
a
,
B
,
C
,
max
:
integer
;
if
max
<
b
then
max
:
=
b
;
if
max
<
c
then
max
:
=
C
;
4.32
-
сурет
.
Модульдік
ортадағы
гкен-
Практикалық жұмыс
санның
Ылған санның
коды берілген).
елген
йтын
Энда
дер-
№ 1- тапсырма
арға
Ына
сін-
begin
readln (a, B, с);
max:=a;
writeln(max);
де
procedure TForml.
Button1Click(Sender: TObject);
var a,b,c,max:integer;
begin
a:=StrToInt(edit1.text);
b:=Str'ToInt(edit2.text);
C:=StrToInt(edit3.text);
max:=a;
if max <b then max:=b;
if max <c then max:=c;
edit4.text:=IntToStr(max);
SIN.L. HVLƏSUVEVS
end.
end;
программа коды
4.33-сурет. Визуалды ортадағы
программа коды​

Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842)
const
 s='велосипедист';
var
 t:='кытунак';
 p:string;
begin
  // 1
  Writeln(LeftStr(s,9),', ',
    s[12]+s[2]+s[5]+s[12]+s[4],', ',
    s[4]+Copy(s,3,2)+s[1]+s[4]);
  // 2
  Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1);
  // 3
  Write('Было: ',t,', стало: ');
  t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о');
  Writeln(t);
  // 4
  Write('Коды символов слова ',t,': ');
  foreach c:char in t do Write(Ord(c),' ');
  Writeln;
  // 5
  Write('В слове ',t,' количество букв ');
  if Odd(t.Length) then Writeln('нечетное') else Writeln('четное')
end.

Результат выполнения программы:
велосипед, тесто, олово
Позиция буквы "д" в слове "велосипедист" равна 9
Было: кытунак, стало: котенок
Коды символов слова котенок: 234 238 242 229 237 238 234
В слове котенок количество букв нечетное

Клавиатура, джойстик, сканер, (принтер - устройство вывода)
Монитор, графопостроитель, принтер, (мышь -  устройство ввода).
Жёсткий диск, flash-память, компакт-диск, (процессор - не элемент памяти) .
Принтер, акустические колонки, наушники, (микрофон -  устройство ввода).
(Системный блок -  обобщенное), центральный процессор, оперативная память, жёсткий диск, блок питания.
Системный блок, клавиатура, мышь, монитор, (акустические колонки - не обязательны).
Видеокарта, (карта расширения, звуковая карта, сетевая карта.
Enter, (End  - др. функциональное назначение), Esc, Delete.
(Цветовой принтер - не существует), лазерный принтер, матричный принтер, струйный принтер 

слова, которые нужно удалить - в скобках, и пояснения, почему так