Объяснение:
Код:
program storinka29zadacha7;
uses crt;
const g=9.80665;
var e,m,v,p,h:real;
begin
writeln('Vvedite m');
readln(m);
writeln('Vvedite v');
readln(v);
writeln('Vvedite h');
readln(h);
e:=m*sqr(v)*8/2;
p:=m*g*h;
writeln('E=',e);
writeln('P=',p);
end.
Схема на картинке
Таблица имеет вид, представленный на картинке.
В таблице размещаются свойства (оценки) пар объектов (предмет и период оценивания), при этом периоды оценивания разделены на несколько классов. Поэтому тип таблицы –<span> «объекты - объекты - несколько»</span>
var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.