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

4 года назад

Нарисуй в окне такую цепочку из восьми бусин чтобы оба это утверждения были истинными

Знания

Информатика

1 ответ:

Пронепро4 года назад

0 0

Вот держи мой друг !)

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

Как сделать книжку малышку в paint

annamaria98 [1]

Никак, никак и еще раз никак

0 0

4 года назад

Представь положительное число 44(10 ) а) в 1-байтовом формате: б) в 2-байтовом формате:

Асташкин Сергей н... [24]

а) в 1-байтовом формате:

б) в 2-байтовом формате:

00000000 до 11111111

0 0

4 года назад

Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу [10;45[.Необходимо найти произведение эл

Ольга Гринцова

Ответ:

Program Massiv; //Заголовок программы

const n=12;

var i,m,p:integer; s: array[1..n] of integer;

begin

p:=1;

for i :=1 to n do

s[i]:= random (10,44);

for i :=1 to n do begin

if (s[i] mod 5) = 0 then p:= p * s[i];

end;

writeln(s);

if p = 1 then

write('Нет элементов кратных 5')

else

write('p = ', p);

end.

Объяснение:

программа описана в файле ворд

0 0

4 года назад

Дать команду чертежнику нарисовать букву Жвысота 4 клетки ширина 2

JackBless [5]

.?.........................

0 0

4 года назад

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

SnEk228833 [60]

Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;

0 0

1 год назад