Помогите 2 задачки сделать на паскале
10-11 класс
|
1) с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти количество чисел во введенной последовательности, оканчивающихся на цифру 7.
2) Дано целое число N. Выяснить, есть ли в записи этого числа хотя бы одна пара одинаковых подряд идущих цифр. Например, для числа 3221 - ответ положительный, для числа 121 - ответ отрицательный
1) var i,x:integer;
begin
i:=1;
while i<>0 do
begin
readln(i);
if i mod 10 = 7 then x:=x+1;
end;
write(x);
end.
Другие вопросы из категории
Запрос Количество страниц (тыс.)
декабрь & январь & февраль 113
декабрь & январь 225
декабрь & (январь | февраль) 645
Сколько страниц (в тысячах) будет найдено по запросу
декабрь & февраль
Объясните пож. решение
Читайте также
(задание номер 5 на фото)
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.
при умножении на 3 - на 4."
руб., журнал h руб. У покупателя денег S руб. Хватит ли их на 3 журнала и 2
книги?.
c, d.
Найти max (max(a, b), max(a, c), max(a, d)).Числа получить случайным
образом на интервале [-50..+50]