Var
s : String;
Begin
{Readln(s);}
s:='abcd sf dsf rfg test';
While Pos(' ',s)>0 do Delete(s,Pos(' ',s),1);
Writeln(s);
end.
Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var s:=0;
if a.IsOdd then s+=a;
if b.IsOdd then s+=b;
if c.IsOdd then s+=c;
Writeln('сумма нечетных равна ',s)
end.
<u>Пример</u>
Введите три целых числа: 345423 -324342 1231
сумма нечетных равна 346654
Ответ:
ABCE=8
Объяснение:
ACDE=25
ACE=18
ABCDE=15
ABCE=8
Остальные пути не проходят через C
1) Щелчке правой кнопки мыши по экрану рабочего стола.
2) Наведите курсор на слово "создать", в всплывающем окне.
3) Щелкните на "папку" (левая кнопка мыши).
4) Создаться папка "новая папка."
5) Введите название папки.
6) Нажмите enter.
7) Откройте "мой компьютер" (пуск, мой компьютер).
8) Сделайте "мой компьютер" на пол экрана (вверху справа)
9) Перетащите папку в диск С.