Объяснение:
Код:
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.
Схема на картинке
если переменная A больше B то переменнвя Y равно переменной A, после идет вывод переменной Y, но если A меньше B то переменная Y равно B, послп вывод содержимого переменной Y
Var a:string;
begin
writeln('Введите строку');
readln(a);
write(a[2]);
write(a[length(a)-1]);
<span>end.
</span>
2- программы обслуживания сети
3-
система управлениями базы данных -microsoft acces
архиватор- win zip
табличный процессор - microsoft exel
браузер - internet explorer
игра- косынка
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.