Uses crt; var a: real; [тип real присваиваем для того, чтобы число можно было делить] begin readln(a); [вводим с клавиатуры число] writeln(a, ' м = ', а/1000, 'км.'); [программа сначала выводит данное ранее число, затем сразу делит его на 1000 и показывает результат] end.
Спасибо
Ответ дал: Гость
program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin readln(a[i]); if a[i]< 0 then l: =l+a[i]; if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.
Ответ дал: Гость
поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe
Популярные вопросы