людии
Информатика 7 клас
Напишіть програму, в якій задається ціле число і виводиться відповідь «так», якщо воно парне. І відповідь «ні», якщо це не так.

program task;

var

n: real;

begin

write('Введіть число ');

readln(n);

if n mod 2=0 then write('Парне');

else write('Не парне');

readln;

end.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот