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

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

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

4 года назад

7

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

Информатика

1 ответ:

megastalker794 года назад

0 0

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

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

Как называется физический носитель аудиальных сообщений? электромагнитные волны звуковые волны атмосферное давление концентрация

Ольга дидя

Объяснение:

Звуковая волна.........

0 0

4 года назад

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

Загадано число из промежутка от 16 до 32.какое количество вопросов необходимо задать для угадывания числа и какое количество инф

Элайза

Вопрос один
Какое число ты загадал?

Если информация от 16 до 32 то
32 - 16 + 1 = 17 разных значений
ln(17)/ln(2) при округлении даст 5
5 бит

0 0

4 года назад

Дана программа на языке Паскаль. Заполни пропуски. Вывод на экран квадратов чисел от 1 до 47. var : integer; begin for n:=1 to

killstation [9.3K]

В 1 пропуск вставляем n
во 2 47
и в 3 вставляем n так как квадраты высчитывается из числа n которые указаны в цикле

0 0

4 года назад

СРОЧНО!ПАСКАЛЬ!! 30 БАЛЛОВ В двумерном массиве 4х4 определить количество чётных отрицательных элементов на главной диагонали мат

Airish [28]

Int a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i] < 0) and (a[i] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end.

0 0

4 года назад

Массив. Найти количество элементов равных 5. Паскаль ABC

Senbonzaura

var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.

0 0

2 года назад