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

[Pavel bohdanov]

You must be registered for see images

 

[dreamer]

You must be registered for see images

:razz: смешно

 

[Pavel bohdanov]

хотел сделать ссылку не получилось.

 

[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. просто решил вспомнить паскаль, если нада было на другом языке легко переделывается

 

[xZ_]

что подразумевается под "минимальная диагональ" ? Какой язык?

Минимальная диагональ - часто та, сумма элементов которой минимальная

 

[Glu4it]

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

 

[Glu4it]

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

:!::!::!:

 

[dreamer]

:!::!::!:

Думаешь от повторения что-то изменится? )

 

[zVonok]

помгите написать програму на ТП используя условний оператор
задание:
По 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, значит разносторонний.Выводим сообещние на экран. Завершаеться программа.Если нет, то выводим сообщение, что треугольник равнобедренный.