var a,s,i:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('Число: '); readln(a);
if a<0 then s:=s+1;
end;
writeln('Кол-во отрицательных чисел: ',s);
end.
Uses crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
<span>END.</span>
1.
var a, b, s: real;
begin
readln(a, b);
s:=s*b;
writeln(s);
end.
2.
var a, b, c, d, s: real;
begin
readln(a, b, c, d);
s:=a+b+c+d;
writeln(s);
end.
3.
var a, b, c, mult: real;
begin
readlb(a, b, c);
mult:=a*b*c;
writeln(mult);
end.
4.
var a, h, s: real;
begin
readlb(a, h);
s:=a*h;
writeln(s);
end.
5.
var a, b, o: real;
begin
readln(a, b);
o:=a/b;
writeln(o);
end.
6.
const pi=3.14;
var r, l: real;
begin
readln(r);
l:=2*pi*r;
writeln(l);
end.
7.
const pi=3.14;
var r, s: real;
begin
readln(r);
s:=pi*sqr(r);
writeln(s);
end.
8.
var a, s: real;
begin
readln(a);
s:=sqr(a);
writeln(s);
end.
9.
var a, h, s: real;
begin
readln(a, h);
s:=a*h;
writeln(s);
end.
10. хз что это.
Что такое информатика? Информатика — это основанная на использовании компьютерной техники дисциплина, изучающая структуру и общие свойства информации, а также закономерности и методы её создания, хранения, поиска, преобразования, передачи и применения в различных сферах человеческой деятельности. Термин "информатика" (франц. informatique) происходит от французских слов information (информация) и automatique (автоматика) и дословно означает "информационная автоматика". Широко распространён также англоязычный вариант этого термина — "Сomputer science", что означает буквально "компьютерная наука".
А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16