1. Составьте программу для вычисления силы, с которой вода давит на тело с площадью поверхности S м2 на глубине h м.
Сила вычисляется по формуле,где F=pS , где p=pgh , p=1000кг/м3 , g=9,8м это нужно делать в Паскале

#include<conio.h>

#include<stdio.h>

#include<iostream.h>

 

float Max(float a,float b)

 

 {

      if (a > b) then return a

         else return b;

}

 

float Min(float a,float b)

 {

      if (a < b) then return a

         else return b;

} 

 

int main()

{

     float x,y,z,p;

      clrscr;

      cout<<"Введите 3 числа: ";

      cin>>x;

      cin>>y;

      cin>>z;

      if (z < 0)  p = Max (x, y) 

              else p =Min (x, y);  

    

       cout<<" \nP равно:"<<p<<"\n"; 

       getch();  

 

       return 0; 

 

} 

 

1.                                                                        

program raf105;

var n,m,i:integer;

begin

writeln('Введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('Вывод:');

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2:integer;

begin

write('Введите число: ');

readln(a);

while a <> 0 do

begin

 b:= a mod 10;

 if b<>0

   then if (b mod 2)=0

     then kol1+= 1

     else kol2+= 1;

 a:= a div 10;

end;

writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n-1 do

 if ((i mod 2)<>0) and ((i mod 3)<>0) and ((i mod 5)<>0)

   then kol+=1;

writeln('Вывод: ',kol);

end.

Язык PascalABC