ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ОФФТОП > Болталка
Перезагрузить страницу Помогите написать простенькие задачки на pascal
   
Ответ
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 20.05.2010, 20:49
Konqi
Постоянный
Регистрация: 24.06.2009
Сообщений: 547
С нами: 8885780

Репутация: 672


По умолчанию
количество русских букв:

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
Сообщений: 547
С нами: 8885780

Репутация: 672


По умолчанию
Чётные и нечётные

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
С нами: 8522243

Репутация: 1
По умолчанию
Цитата:
Сообщение от 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 19 17.01.2006 17:02
помогите написать прогу на СИ. k1b0rg Болталка 3 12.12.2005 03:46



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


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




ANTICHAT ™ © 2001- Antichat Kft.