Перевести из Pascal в Python 3.5

@danilafreddy · Регистрация: 04.03.2017

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
var a: array [1..10] of string;
    s, sl,sg,ss: string;
    i, j, k: integer;
begin
write ('s='); readln (s);  s:=s+' ';
sl:='';
sg:='eyuioaEYUIOAуеыаоэяиюУЕЫАОЭЯИЮЁё';
ss:='qwrtpsdfghjklzxcvbnmQWRTPSDFGHJKLZXCVBNMйцкнгшщзхъфвпрлджчсмтбЙЦКНГШЩЗХЪФВПРЛДЖЧСМТБ';
j:=1;
for i:=1 to length (s) do
    if s[i]<>' ' then
       sl:=sl+s[i]
       else
       begin
       a[j]:=sl;
       inc(j);
       sl:='';
       end;
k:=j-1;
for j:=1 to k do
    write(a[j],' ');
 
     writeln;
     writeln ('Слова, заканчивающиеся на гласную : ');
     for j:=1 to k do
        begin
        sl:=a[j];
         if pos(sl[length(sl)],sg)<>0 then
                write(a[j],' ');
        end;
     writeln;
     writeln ('Слова, заканчивающиеся на согласную : ');
     for j:=1 to k do
        begin
        sl:=a[j];
         if pos(sl[length(sl)],ss)<>0 then
                write(a[j],' ');
        end;
end.

@ТабуретY · 30.05.2018, 10:02

Напиши задание

@dondublon · 31.05.2018, 12:18

Видимо, подсчитать слова в тексте, оканчивающиеся на гласную и на согласную.

@danilafreddy · 01.06.2018, 09:06 **[ТС]**

Задание: Напишите программу, которая из введенного текста сначала распечатывает слова, заканчивающиеся на согласную букву, а потом на гласную букву.

@ТабуретY 1291 / 908 / 479 Регистрация: 05.12.2013 Сообщений: 3,073
	30.05.2018, 10:02	2
	Напиши задание 0

@dondublon 4630 / 2050 / 361 Регистрация: 17.03.2012 Сообщений: 10,131 Записей в блоге: 6
	31.05.2018, 12:18	3
	Видимо, подсчитать слова в тексте, оканчивающиеся на гласную и на согласную. 0

@danilafreddy 0 / 0 / 0 Регистрация: 04.03.2017 Сообщений: 2
	01.06.2018, 09:06 [ТС]	4
	Задание: Напишите программу, которая из введенного текста сначала распечатывает слова, заканчивающиеся на согласную букву, а потом на гласную букву. 0

Опции темы