Помогите пожалуйста! по паскалю abc введите три числа a,b,c . Определите количество положительных чисел в данном наборе.

Знания

Информатика

1 ответ:

JuliaFox [329]3 года назад

0 0

Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.

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

Опишите основный отличия электронной почты от традиционной почты ( минимум 3 отличия)

marina052 [34]

1)по электронной почте в отличии от традиционной доставляется письмо быстро
2) к электронному письму можно прикрепить дополнительные рисунки, таблицы, документы и это не займет много времени, а к простому нужно рисовать, писать, чертить
3)по традиционной почте можно отправить посылку, а по электронной почте только письмо

0 0

4 года назад

Раскодируйте сообщение D1 EE EB EE E2 E5 E9 с помощью ASCII кодов. Что у вас получилось?ответ знаю (соловей)простите, если уже в

ирина вастльева

Великий человек, ппппппппп

0 0

4 года назад

Рисунок, размером 50 на 100, состоит из 256 цветов. Чему равен объём?

Шарлиз [3K]

50 на 100 точек по 256 цветов в точке.

по формуле K=2^b (K-количество цветов, b-глубина цвета).
2^8 = 256 цвета

8 бит * 50 * 100 = 4000 бит = 500 байт

0 0

4 года назад

Добавьте к каждому слову одну букву, чтобы получилось новое слово: оса, арка, тело.

Твой Господин [175]

Коса Марка А третье не знаю

0 0

4 года назад

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

Дана неубывающая последовательность целых чисел вставить в нее целое число b таким образом , чтобы последовательность оставалось

Кира-Т

Const n=10;
var a:array[1..n+1] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
a[1]:=random(51);
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]+random(51);
write(a[i],' ');
end;
writeln;
write('b = ');
readln(b);
j:=1;
while (j<=n)and(a[j]<b) do j:=j+1;
for i:=n downto j do a[i+1]:=a[i];
a[j]:=b;
for i:=1 to n+1 do write(a[i],' ');
end.

Пример:
Исходный массив:
3 21 47 74 104 134 146 177 184 222
b = 120
3 21 47 74 104 120 134 146 177 184 222

0 0

4 года назад