Написать на языке паскаль:
10-11 класс
|
Умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.
fl := false;
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;
Другие вопросы из категории
Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое». 2) Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны». 3)Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
чную0,138 перевести 2,8,16 ичную0,6124 перевести 8,1693,......155 перевести 2,8,16
Читайте также
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
строчку. Найти сумму нечетных элементов массива
Какой суммарный путь пробежит спортсмен за 7 дней?
В какой день впервые спортсмен пробежит более 20 км?
(написать программу на языке ПАСКАЛЯ)
пользователя вводит числа с интервалом 0,1
у=3х*х+х-4 на отрезке от а до в