Кому порешать задачи - пишите сюда

xZ_

Хьёзь
20. Дана строка, состоящая из слов, разделенных пробелами. Напишите
программу, удаляющую лишние пробелы. Пробел считается лишним, если он
стоит вначале строки; стоит в конце строки; следует за пробелом
program xz;
uses crt;
var s:string[100];
i:integer;
begin

readln(s);
while s[1]=' ' do delete(s,1,1);
i:=2;
while i<=length(s) do
if (s=' ') and (s[i-1]=' ') then delete(s,i,1)
else i:=i+1;
if (s[length(s)]=' ') then delete(s,length(s),1);
write(s);
readkey;

end.

P.S. просто решил вспомнить паскаль, если нада было на другом языке легко переделывается
 

Glu4it

Member
Язык:Паскаль
нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану в случайном направлении. вот собственно и все ...
ОЧЕНЬ ПРОШУ ПОМОЧЬ, ПОЖАЛУЙСТА
 

Glu4it

Member
Язык:Паскаль
нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану в случайном направлении. вот собственно и все ...
ОЧЕНЬ ПРОШУ ПОМОЧЬ, ПОЖАЛУЙСТА
:!::!::!:
 

zVonok

New Member
помгите написать програму на ТП используя условний оператор
задание:
По 3 введенным целочисленным значениям A,B,C, являюшимися сторонами треугольника, узнать является ли он равносторонним или равнобедренным или разносторинним и вывести ответ на екран.
Зарание Спасибо!
 

Пух

كنت بلهاء
Модератор
помгите написать програму на ТП используя условний оператор
задание:
По 3 введенным целочисленным значениям A,B,C, являюшимися сторонами треугольника, узнать является ли он равносторонним или равнобедренным или разносторинним и вывести ответ на екран.
Зарание Спасибо!
в теме про паскаль эта задача уже решалась...
алгоритм:
1)вводим поочердно 3 стороны треугольника(большие от нуля(тут первый условный оператор))
2)треугольник существует, если выполняються одновременно 3 условия: a+b>c, a+c>b, b+c>a
3)если a=b=c, значит равносторонний. Выводим сообещние на экран. Завершаеться программа.Если нет, то пункт 4.
4)если a<>b<>c, значит разносторонний.Выводим сообещние на экран. Завершаеться программа.Если нет, то выводим сообщение, что треугольник равнобедренный.
 
Зверху