program p1;
var a: integer;
begin
a=(45/5*7)+(42/7*9)-(7*1)
write(a)
end.
110
Program al;
var a,b,c:integer;
s,p:real;
begin
writeln('vvedite a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
p:=(a+b+c)/2;
s:=<span>sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s);
readln;
end.</span>
Язык СИ:
#include<stdio.h>
#include<stdlib.h>
#include<float.h>
#include<time.h>
int main(){
srand(time(0));
const long double cbc=64.0L-FLT_EPSILON;
unsigned short int r1=cbc/RAND_MAX*rand(),
r2=cbc/RAND_MAX*rand();
printf("R1: %c%c\n",65+r1%8,49+r1/8);
printf("R2: %c%c\n",65+r2%8,49+r2/8);
printf("%s\n",r1%8==r2%8 || r1/8==r2/8?"yes":"no");
return 0;
}
<span>Рентгеновские лучи
</span><span>Телевидение
</span>
<span>Мобильный телефон
</span>
Компьютер
Интернет
Электромобиль
Игровые приставки
Самолёт и автопилот