М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
maks737
maks737
20.02.2023 16:10 •  Информатика

Дан массив из 15 элементов, определенных случайным образом. найти количество четных элементов. !

👇
Ответ:
nekit3221
nekit3221
20.02.2023
Ядро программы состоит из простой проверки
If A(i) Mod 2 = 0 Then k = k + 1
В переменной к накапливается счетчик четных элементов.
Если в языке нет функции Mod (остаток от деления), можно написать так:
If Int (A(i) / 2) = A(i) / 2 Then k = k + 1
Функция Int - целая часть числа - есть во всех языках программирования.
4,5(91 оценок)
Открыть все ответы
Ответ:
FrostMorne
FrostMorne
20.02.2023
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else 
write('Треугольник неравнобедренный');
end.

БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец

№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.

БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
   если i - нечётное, то
      прибавить к s
вывести  s
конец

Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренн
Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренн
4,7(49 оценок)
Ответ:
Dianaaaaaaaaaa03
Dianaaaaaaaaaa03
20.02.2023
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else 
write('Треугольник неравнобедренный');
end.

БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец

№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.

БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
   если i - нечётное, то
      прибавить к s
вывести  s
конец

Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренн
Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренн
4,7(92 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ