1.y=m1*m2/Sqr(r)
2. Program my;
var S,a,b,h:real;
begin
write('Введите длины оснований и высоты');
readln(a,b,h);
S:=(a+b)*h/2;
readln(S);
end.
3. Program my;
var a:integer;
begin
writeln('Введите трехзначное число');
readln(a);
If (a mod 10=7) then write('Данное число заканчивается на 7');
else write('Данное число не заканчивается на 7');
end.
4.Program my;
var a,b,:integer;
begin
readln(a,b);
If (a>b) then writeln(Sqr(a), b+10);
If (a=b) then writeln('Числа равны');
If (a<b) then writeln(Sqr(b), a+10);
end.
5.
Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.
#include <iostream>
using namespace std;
int main()
{
int YBorn , YNow ;
cout <<"what year where you born in?"<<endl;
cin >>YBorn;
cout <<"what year is it now?"<<endl;
cin >>YNow;
int YOld=YNow-YBorn;
cout<<"at the end of the year:"<<endl;
cout << "you're " <<YOld << " years old"<<endl;
int MOld = YOld*12;
cout<< "and "<<MOld<<" month old"<<endl;
int DOld=YNow/4-YBorn/4+YOld*365;
cout<<"and "<<DOld<<" days old"<<endl;
int HOld=DOld*24;
cout<<"and "<<HOld<<" hours old"<<endl;
int MinOld=HOld*60;
cout<<"and "<<MinOld<<" minutes old"<<endl;
int SOld=MinOld*60;
cout<<"and "<<SOld<<" seconds old"<<endl;
cout<<"and "<<SOld<<"000 miliseconds old"<<endl;
system("pause");
return 0;
}