Введите значения переменной MM=3sqr((1+M)*6) 576
<span>чтобы сделать презентацию, выходим на рабочий стол, нажимаем правую кнопку мыши, заходим создать и там выбираем презентация Power Point
</span>
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
Держи Turbo Pascal:
<span><span>uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do
writeln(i);
readln;
end.
</span></span>
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.