Помощник
|
Pascal ABC, нужна помощь |
frion-seo
|
Сообщение
#1
|
||
|
|
||
|
|||
syd2010 |
25.5.2014, 13:38;
Ответить: syd2010
Сообщение
#2
|
|
program str;
var s : string; i : integer; k : integer; procedure fuck; begin k:=0; for i:=0 to length(s) do if s=' ' then k:=k+1; {s сравниваетса с пробелом} writeln('Количество пробелов: ',k); end; begin writeln('Ведите строку :'); readln(s); fuck; end. Это первая! Вторая задача тоже очень простая, просто лень писать. Вот на этом форуме тебе помогут _http://www.cyberforum.ru/ там дохера таких решенных задач. |
|
|
frion-seo
|
Сообщение
#3
|
|
Та я понимаю что они легкие... просто в функциях и процедурах не разбирался, а времени на все не хватает
-------------------- |
|
|
syd2010 |
25.5.2014, 13:57;
Ответить: syd2010
Сообщение
#4
|
|
матрицу заполнять рандомно?
|
|
|
frion-seo
|
Сообщение
#5
|
|
|
да
syd2010, вот как выдает а должно в каждом столбце находить и выводить а не только в одном И в первой задаче пишет в ответе всегда ноль...
-------------------- |
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Украли мой домен abc-your-health.com | 7 | Nika Ivanova | 1477 | 7.6.2013, 16:52 автор: razzor |
Текстовая версия | Сейчас: 18.4.2024, 6:45 |