Что решить???? Уточни пожалуйста????????
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П
Var n:integer; s,p:real;
begin
write('n (чел.) = ');
readln(n);
write('s (кв.км) = ');
readln(s);
p:=n/s;
writeln('Плотность населения = ',p:5:2,' чел/км');
end.
Пример (Россия):
n (чел.) = 146800000
s (кв.км) = 17075400
Плотность населения = 8.60 чел/км
Var i:integer;
begin
for i:=1 to 10 do
writeln(,i,'*7=',i*7);
end.