Pascal 1. Дано 3- х - значное число. Определить, входит ли в него цифра 6? 2. Напечатать ряд чисел 20 20 20 20 20 20 20 20 20 20
10-11 класс
|
var
n : integer;
begin
read (n);
if (n mod 10 = 6) or (n div 100 = 6) or (n div 10 mod 10 = 6) then write ('yes') else write ('no');
end.
var
i : integer;
begin
for i := 1 to 10 do write ('20 ');
end.
Другие вопросы из категории
2Какие теги обуславливают начало HTML-программы?
3Какой тег обуславливает название Веб-страницы?
встречаются в этом предложений хотя бы один раз
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)