2 года назад

Как составить программу по информатике?

1 ответ:

Yo0piE [43]2 года назад

0 0

Program z1;
Var (переменные):(тип переменных);
begin
(цикл или действие программы)
writeln ( выводишь то что нужно);
readln;
end.

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

В графическом редакторе создали рисунок и сохранили его в четырёх разных форматах: gif, bmp, jpeg, png, получили четыре файла р

FERUZO

1. bmp наибольшего размера а вот второе че то не решил

0 0

4 года назад

Закодируйте числа от 0-15 используя только 3 геометрических фигур треугольник,квадрат и круг.Длина кода не постоянная

калифорни [50]

Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг

Фух....

0 0

4 года назад

Переведите число 1001011001001,1^2 в восьмеричную систему исчесления

dar007

1001011001001,1

001 = 1
001 = 1
011 = 3
001 = 1
1 = 1

т.е. целая часть имеет вид 11311
теперь дробная часть
100 = 4

следовательно число 1001011001001,1 в 8 системе имеет вид
11311,4

0 0

4 года назад

Даю 20б Выполните обход этого дерева в порядке «левое-корень-правое». В ответе запишите последовательность узлов без пробелов (

Sergant81

Ответ:
БАВГД
Вроде так.

0 0

4 года назад

В одномерном массиве а=(а1, а2,....аn) отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива.

ДЫМ

Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
end.
abc pascal

0 0

2 года назад