Берілген сөйлемді кері рет бойынша қайта жазатын программа құру паскаль [жабық]

0 дауыс
1.1k қаралым
Берілген сөйлемді кері рет бойынша қайта жазатын программа құру паскальда
Сұрақтың жабылу себебі: Жақсы жауап алынды
Жалпы компьютер

2 жауап

+1 дауыс
Жақсы жауап
var
    abylai: string;
    php, salem, kurman: byte;

begin
    readln(abylai);
    php:= length(abylai);
    kurman := 0;
    for salem:=php downto 1 do begin
        if abylai[salem] = ' ' then begin
            write(copy(abylai,salem+1,kurman),' ');
            kurman := 0;
        end
        else
            kurman := kurman + 1;
    end;
    write(copy(abylai,salem,kurman));
    writeln;
end.

      сізге сәттілік егер тағыда көмек болса айтыңыз көмектесемін
0 дауыс
ээххх каникул умыттырады бәрінде))) негізі білемін бірақ умытып қалдым)))
127,680 сұрақ
322,222 жауап
153,247 пікір
72,704 қолданушы