Не понятно зачем ты присваиваешь переменной d тип double, а потом конвертируешь в int. Также не понятно зачем изначально присваивать переменным значения типа 0.0, так делают только тогда, когда к этой переменную будет суммироваться какое то значение. В этой задаче нужно просто присвоить, поэтому описания типа переменной будет достаточно.
Код:using System;
class maxum000
{
static void Main()
{
double d, m, cm, mm;
Console.Write("Введите число дюймов: ");
d = double.Parse(Console.ReadLine());
cm = d * 2.54;
mm = d * 25.4;
m = d * 0.0254;
Console.WriteLine("{0} дюйм(а/ов) = {1}м, {2}см, {3}мм", d.ToString(), m.ToString(), cm.ToString(), mm);
}
}
Вы меня простите, но на 2 рисунок у меня не осталось времени но я думаю что лучше хоть что то чем ничего.
И ещё 1 нюанс. Я немного не посмотрел на координаты.
Объяснение:
uses drawman;
var i:integer;
procedure figura;
begin
OnVector(1,1);
PenDown;
OnVector(8,0); onvector(0,2); onvector(-2,0); OnVector(0,-2);
OnVector(0,5); OnVector(-2,0);
OnVector(0,-5); OnVector(0,8);
onvector(-2,0);
onvector(0,-8);
onvector(0,11);
onvector(-2,0);
onvector(0,-11);
PenUp;
onvector(5,1);
end;
begin
Field(22,17);
for i:=1 to 3 do begin
figura;
end;
end.
uses crt;
var a,b,c,i,s:integer;
m:array[1..30] of integer;
begin
s:=-1;
for i:=1 to 30 do
begin
m[i]:=random(100);
write(m[i]:3);
end;
for i:=1 to 28 do
begin
if m[i]+m[i+1]+m[i+2]>s then
begin
a:=m[i];
b:=m[i+1];
c:=m[i+2];
s:=a+b+c;
end;
end;
writeln(' a b c');
write(a:3);
write(b:3);
write(c:3);
readln;
end.