4 года назад

Помогите, я слишком тупой

Знания

Информатика

1 ответ:

Екатерина По [2]4 года назад

0 0

program test;

const N=10000;

var a:array[1..n] of integer;

k,i,l:integer;

begin

writeln('Введите количество чисел');

readln(l);

for i:=1 to l do begin

write('Число: '); readln(a[i]);

if a[i]>0 then k:=k+1;

end;

write('Ответ: ',k);

end.

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

Текст, набранный на компьютере содержит 11 страниц, на каждой странице 40 строк, а в каждой строке по 64 символа. Определите инф

Saidka

Из условия следует, что на одной странице $64*40=2560$ символа, а раз так, в тексте $2560*11=28160$ символа. Следовательно, текст будет весить $28160*16=450560$ бит, или 56320 байт, или 55 КиБ:)

0 0

4 года назад

Формы предоставленияданных в ЭВМ

сергеева светлана...

1.Логические данные (булевский тип)
2.Символьные данные
   2.1.текст
3.Арифметические данные
   3.1. Данные с фиксированной точкой
   3.1.1 целые числа
   3.2. Данные с плавающей точкой
   3.2.1. одинарная точность
   3.2.2. двойная точность

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА, принадлежит ли точка X отрезку АВ, на паскале?

Nokian [14]

Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты

program zadacha;

var x1,y1,x2,y2,x3,y3,a,b: real;

begin

writeln('Введите координаты x1,y1');

readln(x1,y1);

writeln('Введите координаты x2,y2');

readln(x2,y2);

writeln('Введите координаты x3,y3');

readln(x3,y3);

a:=(y1-y2)/(x1-x2);

b:=((y1+y2)-a*(x1+x2))/2;

if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)

then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')

end.

0 0

3 года назад

Один символ алфавита племени МУЛЬТИ несет 8 бит информации.верно ли утверждение что сообщение из 8 символов этого алфавита несет

Anga

Нет, тк 1 символ=8 бит, то 8 символов=8*8=64 бит

0 0

4 года назад

Дана последовательность из N вещественных чисел . Определить сколько в ней меньше K , равно K и больше K в Рython . Помогите !!!

rusinka

k = float(input('Введите число для сравнения: '))

print('Вводите числа в одной строке через пробел:')

a = list(map(float,input('Ввод: ').split()))

m,r,b = 0,0,0

for i in a:

if i < k:

m += 1

if i == k:

r += 1

if i > k:

b += 1

print('Меньше ',k,':',m,' чис.')

print('Равно ',k,':',r,' чис.')

print('Больше ',k,':',b,' чис.')

0 0

4 года назад

Помогите, я слишком тупой​

Помогите, я слишком тупой