Регистрация
ErikaKrass
06.10.2020 07:53
Информатика
Есть ответ 👍

Вмассиве b1, найти количество чисел равных 3,5

180
368
Посмотреть ответы 2

Ответы на вопрос:

rom4il
rom4il
4,5(60 оценок)
Dim b(45) for i=1 to 45   print "b("; i; ")= ";   input b(i) next i for i=1 to 45   if b(i)=3.5 then     s=s+1   end if next i print "kolichestvo: "; s
nataone7
nataone7
4,4(62 оценок)
Var a,b,p: integer; begin writeln ('введите стороны прямоугольника: '); readln(a,b); p: =2*(a+b); writeln ( 'периметр прямоугольника = ',p); readln; end. пример: введите стороны прямоугольника: 3 5периметр прямоугольника = 16

Популярно: Информатика