| Автор | Помогите с турбо паскалем |
|---|
21. Составьте программу, определяющую сумму нечетных цифр числа.
22. Составьте программу, печатающую строку: «ZZYXX…A».
23. Составьте программу, распечатывающую слова предложения, которые содержат одинаковое количество букв.
Ребят сил нет последние задачи помогите решить |
21...
раскладываем число(целое?) в виде a0 + a1*10 + a2*100 + ...
дальше очевидно.
22...
вводите строку командой print или как там она... о_О
23...
поясните плз что прога должна вывести после введенного
"мамма мыла рамму и риму"? |
| ваще запутался |
| ну кто знает? |
| Тебя попросили конкретизировать задачи и дать полный текст. Либо если это и есть полный текст, объяснить как ты понял сам и что именно надо чтоб у тебя получилось в итоге. |
| я знаю)...но программы писать не буду...алгоритм - всегда пожалуйста, но сам код и не просите. |
var с: string;
s,n,i: byte;
begin
read(c);
s:=0;
n:=length(c);
for i:=1 to n do
if odd(ord(s[i])-48) then s:=s+ord(s[i])-48;
write(s);
end.
Остальные пиши сам. |
для Ньюанс:
в 23 нужны именно слова с повторением букв |
ребят если 22 решите 1500 золотых подарю
помогите плиииз |
begin
writeln('ZZYXXWVVUTTSRRQPPINNMLLKJJIHHGFFEDDCBBA')
end. |
| купи решебник или начинай учится! |
| без фонатизма |
если я вас правильно понял в 22 задании...там у мну опечатка есть правда...
PPINNтут вместо I надо О... |
это 22 что в ней надо изменить?
var s,s1:string;
i:integer;
begin
i:=Ord('Z');
s1:='';
while s<>'A' do
begin
s:=chr(i);
s1:=s1+chr(i)+chr(i);
inc(i);
end;
writeln(s1);
end. |
| забейте...мы не поняли друг друга... |
