Program pr1;
Uses Crt;
type mas=array [1..30] of string;
Var a : mas; { массив слов } s : String; { данная строка }
i, K : Integer; { K - число слов}
procedure slova (st: string; var a:mas; var k: integer);
Var i: integer;
begin
for i:= 1 to length(st) do
if st[i]<>’ ’ then a[k]:=a[k]+st[i] else if i<> length(st) then begin k:=k+1; a[k]:=’’; end;
end;
BEGIN ClrScr; Write(‘введи строку, '); ReadLn(s); K:=1;
{ обращение к подпрограмме } Slova(S,a,k);
For i := 1 to K do If copy(a[i],1,1)=’a’ then if copy(a[i],length(a[i]),1)=’k’ then WriteLn(a[i]);
ReadLn; END.
Домашнее задание
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть