Pascal 1. в строке, любое количество подряд следующих пробелов замените единственным пробелом. 2/вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами.

152

471

Посмотреть ответы 2

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

liza0234

Информатика

4,5(84 оценок)

Uses crt; var s: string; beginclrscr; writeln('введите строку, содержащую группы пробелов: '); readln(s); while pos(' ',s)> 0 dodelete(s,pos(' ',s),1); write(s); readlnend.

derevnina450

Информатика

4,7(36 оценок)

Во первых в проге можно облегчить; вместо int(d) и d: =c/a можно: d: =c div a и потом просто вывести д ну а про сдачу то формулу f: =c mod a и потом вывести ф