Составить программу паскаль к : 1)в 200 граммах воды растворили 25 грамм поваренной соли. найдите массовую долю соли в растворе? 2)вычислить площадь и периметр прямоугольного треугольника по заданным длинам двух катетов а и b

1) program abc; var a,b: integer;       x: real; begin writeln('введите массу воды'); readln(a); writeln('введите массу раствора'); readln(b); x: =b/a*100; writeln(x,'%'); end. 2)program tt; var   a,b,c,p: integer;       s: real; beginwriteln('введите первый катет'); readln(a); writeln('введите второй  катет'); readln(b); c: =sqr(a)+sqr(b); p: =a+b+c; s: =a*b/2; writeln('площадь=',s,' ','периметр=',p); end.

1. program tt; var   a,b,c,d: real; begin       writeln ('введите массу воды в граммах.'); readln(a);       writeln ('введите массу соли в граммах.'); readln(b);   d : = b+a; c : = b/a; writeln ('массовая доля соли в раствворе - ',c,'.'); end.     2.program tt; var   a,b,pl,per: real; begin       writeln ('введите длинну первого катета.'); readln(a);       writeln ('введите длинну второго катета.'); readln(b);   pl : = (b*a)/2; per : = sqrt(b*b+a*a)+a+b; writeln ('площадь - ',pl,'.'); writeln ('периметр - ',per,'.'); end.    

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(20,2,5); write('оценки за диктант: '); a.println; writeln('двоек: ', a.where(t-> t = 2).count); writeln('троек: ', a.where(t-> t = 3).count); writeln('четверок: ', a.where(t-> t = 4).count); writeln('пятерок: ', a.where(t-> t = 5).count); writeln('средний за диктант: ', a.average: 0: 2); end. пример: оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2 двоек: 6 троек: 8 четверок: 3 пятерок: 3 средний за диктант: 3.15

Эта прога может работать не только с 4-ех значными числами она на pascal. var a,last_num,first_num: integer; begin write('введите число'); read(a); last_num: =a mod 10; first_num: =a; while first_num> 10 do begin first_num: = first_num div 10; end; writeln('последняя цифра ', last_num, ', первая цифра ', first_num); if first_num > last_num then writeln('первая цифра больше') else if first_num = last_num then writeln('они равны') else if last_num > first_num then writeln('последняя цифра больше'); end.