Задать вопрос!

Задать вопрос!

Все категории

4 года назад

11

Запрос: <=85 Какие результаты можно получить? Результат может быть не один!

Запрос: <=85
Какие результаты можно получить?
Результат может быть не один!

Информатика

1 ответ:

Dorki [63K]4 года назад

0 0

42,38,17 вот тебе ответ

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

Помогите, пожалуйста, сделать задание по информатике. Напишите программу печати таблицы перевода расстояний из дюймов в сантимет

Lara4040

1 байт =8 бит
1 Килобайт - 1024 байта
1 Мега байт -1024 Килобайта
1 Гигабайт - 1024 Мегабайта
1 Терабайт - 1024 Гигабайта
1 Пета байт = 1024 Терабайта
1 Этабайт - 1024 Петабайта
<span> - так если мне память не изменяет
:)</span>

0 0

4 года назад

Вывести на экран фигуру из звёздочек (Паскаль) ******* ******* ******* *******

megastalker79

const
chars = '*******';
N = 4;
var
i: integer;
begin
for i := 1 to N do
Writeln(chars);
end.

0 0

4 года назад

Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для

andrievskayap

Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.

0 0

4 года назад

Номер. 77 1) крик 2) барабан 3) интернет 4) передатчик 5) телефон 6) костёр 7) телевизор 8) радиосвязь 9) морзе 10) приёмник

Tolyan2016

1(электроника)-3,4,5,7,8,10
2(инструмент)-2
3(эмоция)-1
4(явления)-6
5(язык)-9

0 0

4 года назад

Нарисовать изображение ,движущееся из центра экрана в левый,верхний угол(в паскале)

bristlestudent [49]

<u>PascalABC.NET 3.2</u>

uses
GraphABC;
begin
var w:=Window.Width;
var h:=Window.Height;
var x0:=w div 2 -1;
var y0:=h div 2 -1;
SetCoordinateOrigin(x0,y0);
var k:=h/w;
for var x:=0 downto -x0 do begin
    var y:=Trunc(k*x);
    Brush.Color:=clRed;
    Pen.Color:=clRed;
    Circle(x,y,10);
    sleep(50);
    Brush.Color:=clWhite;
    Pen.Color:=clWhite;
    Circle(x,y,15)
    end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа