var
<span> a,b,c:integer;
</span><span><span> begin
</span>
read(a,b,c);
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span>
end.</span>
#include <iostream>
using namespace std;
int main (){
int n;
cin >> n;
cout << "Вам " << n << " ";
if ((n > 10 && n < 15) || n % 10 > 4 || n % 10 == 0) cout << "лет\n";
else if (n % 10 == 1) cout << "год\n";
else cout << "года\n";
return 0;
}
Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.