|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2011, 15:32 | #1 |
Пользователь
Регистрация: 24.05.2010
Сообщений: 10
|
проверить задачу на тему Series
Series31. Даны целые числа K, N, а также K наборов целых чисел по N эле-ментов в каждом наборе. Найти количество наборов, содержащих число 2.
Если таких наборов нет, то вывести 0. Код HTML:
Program Series31; var k,n,i,j,x,y,t:integer; begin writeln('vvedite k,n'); readln(k,n); x:=0; y:=n; t:=0; for i:=1 to k do begin for j:=1 to n do begin readln(y); if y=2 then x:=1; end; t:=t+x; x:=0; end; If t>0 then writeln('kol-vo = ',t) else writeln('0'); end. |
24.12.2011, 16:57 | #2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
24.12.2011, 17:00 | #3 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
series_31 на номер 642616444
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверить на правильность задачу | sam5213 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 23.12.2010 18:28 |
Помогите написать задачу на тему: Исследование кореляционной и регрессионной зависимости. | RosOnDon | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 24.04.2009 13:11 |
Помогите решить задачу на тему - Файлы. Pascal. | Impulsive | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 23.02.2008 11:55 |