4 года назад

СРОЧНО!!!!! Составить программу на паскале , что бы получилась ёлка из треёх треугольников. СНИЗУ ФОТОГРАФИИ , ТАМ НАДЕТЕ ТРЕУГ

Знания

Информатика

1 ответ:

Владимир223344 [14]4 года назад

0 0

Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);

line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);

line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);

floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.

Читайте также

Напишите программу в среде Microsoft Visual C# Express, которая выводит на экран любую строку, состоящую из чисел и символов. Пр

Excellence

Using System;

class Program
{
 static void Main()
 {
 var symbols = new char[] {'A', 'a', '0', '}', 'T'}; //символы из которых может состоять строка
 var r = new Random();

 var s = "";
 for(var i = 0; i < r.Next(255); i++) {
 s += symbols[r.Next(symbols.Length - 1)].ToString();
 }

 Console.WriteLine(s);
 Console.ReadKey();
 }
}

0 0

4 года назад

Какие файлы пакуются плотнее всего? Вариант 1 тексты Вариант 2 рисунки Вариант 3 видео Вариант 4 звуки

Олеся Золотых

2 я думаю такой ответ

0 0

4 года назад

Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 1 минуту и 20 секунд. Если предварительн

Sasha2525

Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов.
Передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). А передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд.
80 / 10 = 8. Неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный.
Тогда упакованный файл имеет размер 24 МБ / 8 = 3 МБ
Ответ: 3 МБ

0 0

4 года назад

Дан массив А(8).Найти сумму нечетных положительных элементов. Благодарю заранее

Артемий67 [6]

Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
 writeln ('Введите элемент массива ',i);
 readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin
 if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
end.

0 0

4 года назад

4. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованн

Маским1979 [49]

Var
x,y : integer;

begin

Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');

end.

0 0

4 года назад