Помогите пожалуйста составить программу, которая запросит натуральное трехзначное число и определит, является ли вторая цифра этого числа четной;)
5-9 класс
|
var
s:string;
begin
readln(s);
if (s[2]='2') or (s[2]='4') or (s[2]='6') or (s[2]='8') then writeln('YES') else writeln('NO');
end.
Другие вопросы из категории
1.Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=2 to 1 do
write (i);
2.Что будет выведено на экран в результате выполнения фрагмента программы
a:=5; b:=3;
write( a, '=Z(', b, ')' );
Здесь a и b — целые переменные.
3.Что будет выведено на экран в результате выполнения фрагмента программы
a:=5; b:=3;
write( 'Z(a)=', '(b)' );
Здесь a и b — целые переменные.
РИ ТОЮОЛ ПЛПС Г ЦШСЗЛОЛ Е ФГПЦБ ЖОЦДЯ ОГКЦУЛ.
превращается в prsws oad. Один из её защищенных паролей выглядит как знд чн унжаааоаа. выберите исходный пароль
А) зонд не панацея Б)днз нч жнуааоааа
В)задача нужна она Г) знакома и ужасна
А) не (А) & (не(В) ->С)
Б) А & (не(В) & С)
В) не (А) -> (не( В) & C)
Г) не (А) & (не( В) V С)
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...