a,b: integer; begin write('введи возраст саши: '); read(a);
write('введи возраст маши: '); read(b);
writeln; if a> b then write('саша старше маши'); if a< b then write('маша страше саши'); if a=b then write('маша и саша - ровесники'); end.
Ответ дал: Гость
4 попрощайся и захлопни дверь
6 вс выключи .
заголовок выйди из дома
3 закрой квартиру
4 поверни ключ
Ответ дал: Гость
vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот
Популярные вопросы