сервис вопросов и ответов4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и
10-11 класс|
|
until)////
ввести натуральное число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
Arsok
08 февр. 2017 г., 5:28:01 (7 лет назад)
Kristina805
08 февр. 2017 г., 7:58:19 (7 лет назад)
Program pr1;
uses crt;
var i,l,j:integer;
mas:array[byte] of integer;
x:string;
begin
clrscr;
writeln('Vvedite x');
readln(x);
i:=0;
repeat
i:=i+1;
val(x[i],l,j);
mas[i]:=l;
until i=length(x);
j:=0;
for i:=1 to length(x) do j:=j+mas[i];
if j=10 then writeln('Verno')
else writeln('Ne verno');
end.
хууууу.....вот
3) решение
Program pr3;
uses crt;
var i,l,j:integer;
mas:array[byte] of integer;
x:string;
begin
clrscr;
writeln('Vvedite x');
readln(x);
i:=0;
while i<=length(x) do begin
i:=i+1;
val(x[i],l,j);
mas[i]:=l;
end;
j:=0;
for i:=1 to length(x) do j:=j+mas[i];
writeln(j);
end.
Ответить
Другие вопросы из категории
последние аk =( 1,9x+ 7k)/k!
program sum;
const e = 0.001;
var x, a,summa : real;
k : integer;
function Factorial(n: word): LongInt;
begin
if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);
end;
begin
writeln('Введите x:');
readln(x);
summa:= 0;
k:=1;
a := 1.9*x+exp(k*ln(7));
while abs(a) > e do
begin
summa:=summa + a;
k := k + 1;
a := exp(1.9*x+exp(k*ln(7)))/Factorial(k);
end;
writeln('Сумма=', summa:5:2);
writeln('Количество слогаемых=', k-1);
end.
Где ошибка?
Написать функцию, которая возвращает символ строки с самой высокой частотой
встречаемости. Прототип функции char function_name (char *s). Проверить
работу функции на строке, введенной с клавиатуры. Реализовать вывод результата
Помогите с информатикой)
Какой объём видеопамяти необходим для хранения четырёх страниц изображения при условии, что разрешающая способность дисплея равна 640х480 точек, а используемых цветов-32?
ПОМОГИТЕ ПОЖАЛУЙСТА:) 1.объем дискеты 1,44 Мб. Сколько файлов можно записать на дискету, если длина каждого файла равна 250 Кб? 2.объем
дискеты составляет 1,44 Мб. Величина сектора дискеты равна величине ее кластера и равна 512 байт.Сколько кластеров на дискете?
Читайте также
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
Срочно!!!!
ввести натуральное число и определить, верно ли, что сумма цифр равна 10
Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
Написать программу на Паскале. Дано четырехзначное натуральное число. Найти количество цифр данного числа, большие цифры А (А вводит пользователь) и
определить, верно ли, что данное число кратно 3.
Вы находитесь на странице вопроса "4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.