Растолкуйте программу!!!!Среди данных чисел A,B,C,D есть хотя бы два четных.var
Растолкуйте программку!!!!
Посреди данных чисел A,B,C,D есть желая бы два четных.
var i,e,t,k:integer;
s:string;
begin
for i:=0 to 3 do
begin
repeat
Write(Chr(Ord('a')+i),': ');
ReadLn(s);
Val(s,t,e);
if elt;gt;0 then WriteLn('Это не целое число, повторите ввод');
until e=0;
if t mod 2=0 then Inc(k);
end;
WriteLn(kgt;=2);
end.
1 ответ
Макс Суродейкин
i - Счётчик количества чисел
e - Вывод оплошности
t - Введённое число (преобразованная строчка)
k - Счётчик количества чётных чисел
s - Введённое число в виде строчки
- Начало программки
- Начинается цикл for i:=0 to 3 do всё что снутри него будет повторено 4 раза пока i не больше 3 (0, 1, 2, 3)
- Начинается цикл repeat ... until e=0; если к концу выполнения команд, которые находятся внутри цикла переменная e будет одинакова нулю, то цикл завершится и не будет повторятся опять
- Вывод Write(Chr(Ord('a')+i),': '); функция Ord конвертирует знак (в данном случае знак "a" англ. алфавита) в шифровку Unicode. (В unicode символы пронумерованы в алфавитном порядке. То есть +1 к коду значит сдвиг по алфавиту на право на 1 позицию). Потом к коду знака "a" прибавляется значение i. Потом функция Chr конвертирует новый код в знак.
- Ввод переменной s
- Функция Val преобразует строчку s в число и записывает в переменную t. Если преобразование удалось, то переменная e равняется нулю, если нет, то переменная e больше нуля.
- Условие - Если e не приравнивается нулю, то вывести сообщение "Это не целое число, повторите ввод"
- Цикл со вводом числа не повторяется если e = 0
- Условие - Если t чётное, то функция Inc прибавляет к переменной k единицу.
- Вывод логического значения выражения k gt;= 2 (True если правда и False, если ересь)
- Конец программки :)
Николай
Вообще, программу можно написать намного легче и понятнее, но она будет не так прекрасно смотреться в плане кода и вывода известий
Матушек
Николай
Если нужен упрощённый вариант программы, то вы сможете задать новый вопрос с заданием
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза
Математика.
Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,
Разные вопросы.
«Металлическая болванка, нагрета до 420C, охлаждается в воздухе, температура которого 20C,
Алгебра.
Облако тегов