М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
DianaDusha
DianaDusha
17.06.2020 04:56 •  Информатика

Pascal ! нарисуйте окружность такой линией, ширина которой больше радиуса. обведите полученную фигуру по контуру

👇
Ответ:
юлька438
юлька438
17.06.2020
//Pascal ABC.NET 3.1 сборка 1256

Uses
 GraphABC;

Var
 r,v:integer;
begin
writeln('Введите радиус:');
readln(r);
writeln('Введите ширину контура:');
readln(v);
brush.Style:=bsClear;
pen.Width:=r+10;
circle(window.Center.X,window.Center.Y,r);
pen.Width:=v;
pen.Color:=clPurple;
circle(window.Center.X,window.Center.Y,r+(r+10) div 2);
end.

Примечание:
При вводе 100 и 30 получается красиво.
4,5(48 оценок)
Открыть все ответы
Ответ:
YuliyaSchool
YuliyaSchool
17.06.2020

1. Например: смотреть д/з, играть в игры, смотреть видео уроки и т.д.

2. Учителя могут искать тесты/контрольные работы что-бы их провести в классе, так же они могут смотреть информацию для какого либо урока. Старшие могут смотреть что то по работе или то что нужно им сделать для своего ребёнка например-призентацию и т.д.

3. По интернету можно смотреть видео уроки, д/з, информацию для доклада/сообщения в школу.

4. Иногда как, бывает хорошо, а бывает плохо, одна причина почему очень неприятно-мошеники в интернете которые всех обманывают.

Вот мой ответ удачи

4,4(91 оценок)
Ответ:
asdffhcjbh
asdffhcjbh
17.06.2020
Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.

Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;      
      s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);  
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.
4,8(35 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ