Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.10.2018, 17:23   #1
артем2
Новичок
Джуниор
 
Регистрация: 27.10.2018
Сообщений: 1
По умолчанию Помогите совместить вместе 2 программи

var
i:integer;
s:string;

begin
readln(i);
for i:=1 to i do
readln(s);
write(s[length(s)]);
end.

------------------------------------
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 5 do
read(a[i]);
if a[1]=a[3] then writeln('true')
else writeln('false');
end.
артем2 вне форума Ответить с цитированием
Старый 27.10.2018, 22:43   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Как нефиг нафиг:
Код:
var
i:integer;
s:string;
a:array[1..10] of integer;

begin
readln(i);
for i:=1 to i do
readln(s);
write(s[length(s)]);

for i:=1 to 5 do
read(a[i]);
if a[1]=a[3] then writeln('true')
else writeln('false');

end.
digitalis вне форума Ответить с цитированием
Старый 30.10.2018, 12:04   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

< телепатический прием >
Да пожалуйста. Обращайся ежели что.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как узнать системные требования к программи Sylar9 Общие вопросы C/C++ 4 19.03.2012 22:46
Сетевые программи Farhod Общие вопросы .NET 7 23.04.2010 21:44
Загрузить библиотеку вместе сразу вместе с программой Anekdot Общие вопросы Delphi 4 26.01.2010 23:14
компоновка ассемблерных модулей с программи С++ brainFuck Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 08.09.2008 09:10
Вопрос о времени работи программи terminadoor Помощь студентам 1 05.08.2008 11:42