Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail.ru
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Вопросы - лидеры.
Что нужно для создания такого сайта?
1 ставка
Помогите с решением задачи Python
1 ставка
Экран ST7735S(модуль air101) сильно искажает цвета esp32c3
1 ставка
Питон срочно!!!без сложностей в задаче !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!пожалуйста!!!!!
1 ставка
Как увеличить изображение сохраняя соотношение сторон?
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Переведите с pascal в java пж
Чупакабра Чупакабра
Ученик
(50), закрыт
5 лет назад
program c4;
program c4;
var
w: array[1..99] of string;
N: integer;
s: integer;
line: string;
i, j: integer;
begin
{читаем обучающий блок}
for i := 1 to 9 do readln(w[i]);
for i := 11 to 19 do readln(w[i]);
for i := 1 to 9 do readln(w[10*i]);
{строим полный словарь}
for i := 2 to 9 do begin
for j := 1 to 9 do begin
w[10*i + j] := w[10*i]+ ' ' + w[j];
end;
end;
{читаем и обрабатываем основной набор данных}
readln(N);
s:= 0 ;
for i:=1 to N do begin
readln(line);
j:=1;
while (j<100) and (w[j]<>line) do j:=j+1;
if j<100 then s:=s+j; end;
writeln(s);
end.
Лучший ответ
Александр
Искусственный Интеллект
(290452)
5 лет назад
зачем?
что делает эта программа?
Остальные ответы
Похожие вопросы
program c4;
var
w: array[1..99] of string;
N: integer;
s: integer;
line: string;
i, j: integer;
begin
{читаем обучающий блок}
for i := 1 to 9 do readln(w[i]);
for i := 11 to 19 do readln(w[i]);
for i := 1 to 9 do readln(w[10*i]);
{строим полный словарь}
for i := 2 to 9 do begin
for j := 1 to 9 do begin
w[10*i + j] := w[10*i]+ ' ' + w[j];
end;
end;
{читаем и обрабатываем основной набор данных}
readln(N);
s:= 0 ;
for i:=1 to N do begin
readln(line);
j:=1;
while (j<100) and (w[j]<>line) do j:=j+1;
if j<100 then s:=s+j; end;
writeln(s);
end.