Uses graphabc;
begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (140, 450, 160, 600)
end.
Ответ:
Перезагружайте комп пока не будет нормально
, у меня всегда работало
Значение переменного равно 8 так как это корень
Program natashka300198;
var i:char;
begin
write('i=');read(i);
case i of
'1': writeln('Понедельник');
'2': writeln('Вторник');
'3': writeln('Среда');
'4': writeln('Четверг');
'5': writeln('Пятница');
'6': writeln('Суббота');
'7': writeln('Воскресенье');
end;
<span>end.</span>