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

Определите значение переменной К после выполнения фрагмента программы k:=0;
x:=1;
while x:=20 do
begin
if x mod 5 = 0
then k:=k+1;;
x:=x+1;
end;
writeln (k) ​

👇
Ответ:
Sasci
Sasci
25.03.2021

4

Объяснение:

x mod 5 = 0 означает деление без остатка, следовательно, по условию цикла (while x<=20) и шага увеличения его основной переменной (x:=x+1) на 1 за итерацию, можно просчитать, что результатом станет количество чисел в диапазоне 1 - 20, у которых 5 выступает полным делителем.

Сам результат считается просто: 20:5=4  

4,7(89 оценок)
Открыть все ответы
Ответ:

План характеристики химического элемента

по его положению в периодической таблице элементов

1. Название химического элемента. Химический знак этого элемента.

2. Положение в периодической таблице (порядковый номер, номер периода (малый, большой), номер группы.

3. Металл или неметалл.

4. Высшая валентность в кислородных соединениях, формулы высшего оксида, соответствующего гидроксида или кислоты, характер их свойств.

5. Валентность в водородном соединении, формула летучего водородного соединения (для неметаллов).

В ответе ставим только номера пунктов плана.

4,8(8 оценок)
Ответ:
evgen16112000
evgen16112000
25.03.2021

Неправильно написан поиск минимального и максимального элементов:

Program j;

uses crt;

const n=10;

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

i,min,max:integer;

begin

min:=1; max:=1;

Writeln ('Введите элементы массива');

For i:=1 to n do

Begin

Write ('a[',i: 2,']=');

Readln(a[i]);

End;

Writeln ('Контрольный вывод массива: ');

For i:=1 to n do

Writeln('a[',i:2,']=',a[i]:4);

for i:=1 to n do

begin

if a[i]>a[max] then max:=i;

if a[i]<a[min] then min:=i;

end;

writeln('Максимальный элемент массива ',a[max],' под номером ',max);

writeln('Минимальный элемент массива ',a[min],' под номером ',min);

end.

Выделенное жирным шрифтом - исправленный вариант.

Теперь программа корректно ищет и минимальный и максимальный элементы, при том проходя массив полностью, а не до первого совпадения, как было в исходной версии.

4,8(45 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ