Вывести квадраты чисел от 30 до 10

Знания

Информатика

1 ответ:

alex 75 [7]3 года назад

0 0

Var i :integer;
begin
for i := 30 downto 10 do
writeln(sqr(i));
readln;
end.

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

Мне нужно выполнить циклом нц и кц слово информатика помогите пожалуйста а то у меня пишут нет такого алгоритма!!!!!

moon pie [51]

Напиши нц и кц перед нч например 9 раз не пеши раза а то ошибка будет нашми энтер и пеши вниз;закрасить потом вверх вниз закрасить всё через точку с запетой и всё

0 0

3 года назад

Тест № 3 (итоговый) 1. Для кодирования синего цвета служит код 01101. Сколько цветов содержит палитра? А) 5; В) 3; С) 32; D) 10;

benka2

1: C)

2: A)

3: E)

4: B)

5: E)

6: A)

7: A)

8: D)

9: E)

10: C)

11: A), C), D)

12: D)

13: D)

14: D), B)

0 0

4 года назад

В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета

KarinA96 [7]

2200 страниц будет найдено

0 0

4 года назад

Сколько байт памяти занимает цветное изображение шириной 30 точек и высотой 10 точек в цветовой модели RGB

0леська

В RGB 256 цветов
256=2^8 --> 8 бит для одного пикселя (точки)
30*10*8=2400 бита = 300 байта <--- ответ

0 0

4 года назад

Введите с клавиатуры одномерный массив А(I), элементами которого являются положительные и отрицательные целые числа. Сформируйте

Олег1964

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
<span>end.</span>

0 0

1 год назад