ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Оффтоп > Болталка
Перезагрузить страницу Помогите написать простенькие задачки на pascal
   
Ответ
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 20.05.2010, 20:49
Konqi
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
Провел на форуме:
2101094

Репутация: 672


Отправить сообщение для Konqi с помощью ICQ
По умолчанию
количество русских букв:

s,s1:string;count:integer;
begin
count:=0;
readln(s); s:=s1;
while pos('русская буква',s1)>0 do begin
count:=count+1;
k:=pos('русская буква',s1);
delete(s1,k);
end;
write(count)
end.

я не понял одно, как проверить все буквы вместе

если сделать так как я написал,то будет перебор
Последний раз редактировалось Konqi; 20.05.2010 в 20:51..
 
Ответить с цитированием

  #12  
Старый 20.05.2010, 21:00
Konqi
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
Провел на форуме:
2101094

Репутация: 672


Отправить сообщение для Konqi с помощью ICQ
По умолчанию
Чётные и нечётные

var x:array[1..20] of integer;
i,n:integer;
begin read(n);
for i:=1 to n do read(x[i]);
for i:=1 to n do if (x[i] mod 2=0) then write('Чётный') else if (x[i] mod 2 =1) then write('нечётный');
end.
 
Ответить с цитированием

  #13  
Старый 20.05.2010, 21:54
FUTsin283
Новичок
Регистрация: 03.03.2010
Сообщений: 22
Провел на форуме:
84035

Репутация: 1
Отправить сообщение для FUTsin283 с помощью ICQ
По умолчанию
Цитата:
Сообщение от Konqi  
Чётные и нечётные

var x:array[1..20] of integer;
i,n:integer;
begin read(n);
for i:=1 to n do read(x[i]);
for i:=1 to n do if (x[i] mod 2=0) then write('Чётный') else if (x[i] mod 2 =1) then write('нечётный');
end.
спасибо большое.
 
Ответить с цитированием
Ответ
Страница 2 из 2 < 1 2



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программу! -slim- Болталка 6 02.12.2008 00:43
Помогите написать скрипт на javascript Micr0b PHP, PERL, MySQL, JavaScript 19 17.01.2006 17:02
помогите написать прогу на СИ. k1b0rg Болталка 3 12.12.2005 03:46



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ