1С : Бухгалтерия
И все. Самая популярная и лицензионная.
Var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
Я думаю что хранить и передовать есле их не выбросить
ХИБНІ:
1.Сьогодні було дуже спекотно.
2.Зараз я сплю.
3.Через 2 години буде Новий Рік.
ІСТИННІ:
1.Мене звати...
2.Зараз на дворі осінь.
3.Мій найулюбленіший предмет...
<span>xv = int(input("Введит минути: "))
sec = int(input("Введит секунди: "))
if xv >0 or sec > 0 <span>:
</span> print("Секунди в минутах ",xv ,'=', xv*60,'секунд!')
print("Загальний час в секундах = ",xv*60+sec,'секунд!')
else<span>:
</span> print("Час не може бути менше 0!!!")</span>