PASCAL ABC Составить программу, которая определяет подходит кандидат на работу или нет. Возраст:не больше 50, не меньше 17 Стаж:не
5-9 класс
|
менее 3-х лет
Задача2
Даны три числа, определить сколько чётных
Задача3
Является ли 4-х значное число палендромом
var
age : integer;
begin
read (age);
if (age > 50) or (age < 17) then writeln ('No') else writeln ('Yes');
end.
var
a, b, c, count : integer;
begin
read (a, b, c);
count := 3 - a mod 2 - b mod 2 - c mod 2;
writeln (count);
end.
var
k : integer;
begin
read (k);
if (k mod 1000 div 100 = k mod 100 div 10) and (k div 1000 = k mod 10) then writeln ('Yes') else writeln ('No');
end.
Другие вопросы из категории
текста при двусторонней печати,если каждая страница содержит 32 строки по 40 символов в строке?
Файл объемом 450 байт был скачан стандартным модулем загрузки браузера за 10 секунд. Скорость скачивания равна....
1. 4,5 байт/с
2. 45 бит/с
3. 45 байт/с
4. 450 бит/с
заранее спасибо!!!!!!!!!!
Читайте также
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2. Составить программу, которая позволяет заменить все гласные символом "*"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...