1.
1)var a,b,c,P,S:real;beginread(a,b,c);P:=a+b+c;writeln('P=',P);P:=P/2;S:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('S=',S);end.
2)var a,b,P,S:real;beginread(a,b);P:=2*(a+b);writeln('P=',P);S:=a*b;writeln('S=',S);end.
3)var a,P,S:real;beginread(a);P:=3.14*2*a;writeln('P=',P);S:=3.14*sqr(a);writeln('S=',S);end.
Закон дистрибутивности, он же распределительный.
Закон о раскрытии скобок.
V - сложение
& - умножение
A V (B&C) = A + (B*C) = (A + B) * (A + C) = (A ˅ B) ˄ (A ˅ C)
Ответ 2.
Var m:array [1..10] of integer;
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.
a:=(6+2)*4 = 8*4 = 32
b:=a mod 5+1 = 32 mod 5+1 = 2+1 = 3
a:=b div 6-2 = 3 div 6-2 = 0-2 = -2
Ответ: a = -2 ; b = 3.
Program test
var
c: integer
begin
readln(c);
if c mod 2 = 0 then writeln("Четное");
else writeln("Нечетное");
end.
Не особо шарю в паскале, поэтому на всякий случай вот на С++:
#include <iostream>
using namespace std;
int main()
{
int c;
cin >> c;
if(c%2 == 0) cout << "Четное";
else cout << "Нечетное";
return 0;
}