// PascalABC.NET 3.2, сборка 1404 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var lsm:=ReadInteger('Укажите длину в см:');
if lsm<100 then Writeln(lsm,' см')
else begin
 var lm:=lsm div 100;
 Write(lsm div 100,'м');
 lsm:=lsm mod 100;
 if lsm<>0 then Write(' ',lsm,'cм');
 Writeln
 end
end.

Примеры
Укажите длину в см: 1623
16м 23cм

Укажите длину в см: 1200
12м

Укажите длину в см: 38
38 см

0 0

4 года назад

Даю 60 баллов. Ответ есть, очень нужно решение, информатика уровень 11 класса. Методом Монте-Карло найти площадь круга (x-0,5)^

мария32545 [14]

Var x,y,s:real; i,k:integer;
begin
for i:=1 to 200 do
begin
x:=random;
y:=random;
if sqr(x-0.5)+sqr(y-0.5)<=0.25
then k:=k+1;
end;
writeln('Вычислено: ',k/200:6:4);
writeln('Пи/4 = ',pi/4:6:4);
end.

Пример:
Вычислено: 0.7750
Пи/4 = 0.7854

0 0

4 года назад

Составте программу для вычисления площади трапеции по заданной высоте и основаниями

Medved38 [1]

Язык программирования Pascal

program zadacha1
var a,b,h,s: real;
begin
write('Введите верхнее основание трапеции ');
readln(a);
write('Введите нижнее основание трапеции ');
readln(b); write('Введите высоту трапеции ');
readln(h);
s:=(a+b)/2*h;
write('Площадь трапеции = ',s);
end.

0 0

4 года назад