Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
АльФея
4 года назад
6
Дорогие Информатики напишите команду LINE как нарисовать звезду!!!!! Пожалуйста))))
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Ahmed ara
4 года назад
0
0
Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.
Отправить
Читайте также
Построить таблицу истинности AvA&B
Сергей3826
<span>Таблица истинности AvA&B </span>
0
0
4 года назад
Написать алгоритм определения 1 фальшивой монеты, если неизвестно больше или меньше она весит в сравнении с настоящими монетами,
NastiaLucky77
? - фальшивая
+ - настоящая
dif - знание о весе фальшивой (больше или меньше)
vs - взвешивание
=> - итог взвешивания
1 откладываем
1) 7? vs 7?
if == => 14+ 7? goto 2)
if <> => 7+ 14? goto
2) 4? vs 4+
if == => 18+ 3? goto 3)
if <> => 10+ 4? goto
3) 2? vs 2+
if == => 20+ 1? goto 4)
if <> => 19+ 2? goto
4) 1? vs 1+
if == => фальшивая та что отложена вначале
if <> => нашли
0
0
3 года назад
Прочитать ещё 2 ответа
Даны N вещественных чисел. Найти среднее арифметическое отрицательных чисел
TeaCH [73]
Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
0
0
4 года назад
Помогите пожалуйста умоляю с инфой молиться буду на вас мне прям срочнооо спасибо добрые люди :)
upe
Ответ:
2.b) будет ....................
0
0
4 года назад
У исполнителя УДВОИТЕЛЬ две команды,которым присвоены номера: 7.прибавить 1. 8.умножить на 2 Напишите программу,которая преобра
фор
1. 4+1 = 5 (7)
2. 5*2 = 10 (8)
3. 10+1 = 11 (7)
4. 11*2 = 22 (8)
5. 22+1 = 23 (7)
6. 23*2 = 46 (8)
7. 46+1 = 47 (7)
8. 47*2 = 94 (8)
0
0
3 года назад
Смотрите также:
Дан массив из 20 случайных чисел, со значениями от -30 до 30, подсчитайте кол-во положительных и отрицательных чисел?
8
·
1 ответ
подсчитать количество отрицательных чисел в массиве
11
·
1 ответ
Дано трехзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые
7
·
1 ответ
Печать параметров в заданном формате, с идентификаторами. рассказать в 4х-5 предложениях как она идет
10
·
1 ответ
Помогите пожалуйста. №7 (Программа паскаль)
6
·
1 ответ
В Паскаль ABC Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько
6
·
1 ответ
Написать программу, которая выводит текстовое описание числа. На вход числа от 100 до 399. На выходе число текстом. Например, н
6
·
1 ответ
В сказочной стране у провайдера есть высокоскоростной канал, обеспечивающий скорость получения им информации 222 бит в секунду.
6
·
1 ответ
Можете объяснить как работает программа
5
·
1 ответ
Задание номер 2, с решением. 15 баллов.
5
·
2 ответа
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!