Регистрация
KIRILL1231321312
01.09.2021 15:07
Информатика
Есть ответ 👍

[paskal] составить программу вычеркивания из текста всех пробелов решить !

108
236
Посмотреть ответы 3

Ответы на вопрос:

onealoner13
onealoner13
4,8(56 оценок)
Var s: string; i: integer; begin readln(s); for i: =length(s) downto 1 do if s[i] = ' ' then delete(s, i, 1); writeln(s); end.пример входных данных: мама мыла рамупример выходных данных: мамамылараму
Кrистинkа2006
Кrистинkа2006
4,4(33 оценок)
//pascal abc.net v3.0 сборка 1111 var   s: string; begin   readln(s);   while pos(' ',s)< > 0 do   delete(s,pos(' ',s),1);   writeln(s); end.пример ввода: cat is fine tooпример вывода: catisfinetoo
ЕНОТ55115
ЕНОТ55115
4,8(45 оценок)

program helloworld;

var s: real;

begin

      writeln('введите значение температуры: ');

      readln(s);

      if (s> 36.6) then

              writeln('не здоров! ')

      else

          writeln('здоров! ')

end.

Популярно: Информатика