С клавиатуры вводится натуральное число z?

2016angelina 6 янв. 2021 г., 11:42:55

Var z, k, n, sum : integer ; s, a : string ; i : byte ;

begin write ('Введите число : ') ; readln (z) ; Str(z, s) ; k : = length(s) ; sum : = 0 ; for i : = 1 to k do begin a : = s[i] ; n : = StrToInt(a) ; sum : = sum + n ; end ; writeln ('Количество цифр в числе : ', k) ; writeln ('Сумма цифр числа : ', sum) ; writeln ('Первая цифра числа : ', s[1]) ; writeln ('Последняя цифра числа : ', s[k]) ;

end.

- - - - - - - - - - - - результат : - - - - - - - - - - - - - -

Введите число : 567854

Количество цифр в числе : 6

Сумма цифр числа : 35

Первая цифра числа : 5

Последняя цифра числа : 4.

Yana0111 24 авг. 2021 г., 21:06:20 | 10 - 11 классы

Нужна ваша помощь?

Нужна ваша помощь.

Необходимо написать программу в PascalABC и лучше с объяснениями.

Сам не понимаю.

Дано натуральное число.

Верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).

Huhyugtyftrfdtdu 10 мар. 2021 г., 11:01:34 | 10 - 11 классы

Чуваки, помогите?

Чуваки, помогите.

Не шарю совсем, надо написать программу и лучше с объяснениями.

Дано натуральное число.

Верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).

Bogdan1143 1 июн. 2021 г., 03:13:18 | 10 - 11 классы

С клавиатуры вводятся два трехзначных числа ?

С клавиатуры вводятся два трехзначных числа .

Выяснить , образуют ли сумма цифр сотен, сумма цифр десятков , сумма цифр единиц введенных чисел убывающую последовательность.

Solomnikovigor 6 февр. 2021 г., 16:08:53 | 5 - 9 классы

С клавиатуры вводится натуральное число ?

С клавиатуры вводится натуральное число .

Найдите последнюю цифру числа.

Входные данные : введите натуральное число : 371.

Выходные данные : последняя цифра 1.

Паскаль.

Пожалуйста.

Срочно.

Maksimanzlo 6 авг. 2021 г., 20:38:01 | 5 - 9 классы

Дано натуральное число N?

Дано натуральное число N.

Найти сумму первой и последней цифры этого числа.

Составьте программу.

A0rh2imeksaSr 23 февр. 2021 г., 15:36:16 | 5 - 9 классы

1) Найти минимальное число, большее 300, которое нацело делится на 19?

1) Найти минимальное число, большее 300, которое нацело делится на 19.

2) С клавиатуры вводится натуральное число n.

Найти количество цифр этого числа, их сумму, количество четных и нечетных цифр, сколько цифр в числе делится на 3.

Ира448 10 апр. 2021 г., 14:57:52 | 10 - 11 классы

Буду очень благодарна за помощь?

Буду очень благодарна за помощь!

1)Вводятся натуральные числа, не превосходящие N.

Вычислить произведение всех чисел, кратных 6.

2) Вывести все трехзначные числа, в которых сумма первых двух цифр равна сумме двух последних цифр.

Sobirovamariya 3 июл. 2021 г., 03:51:19 | 5 - 9 классы

С клавиатуры вводится четырехзначное число найдите сумму цифр в этом числе кратных трем?

С клавиатуры вводится четырехзначное число найдите сумму цифр в этом числе кратных трем.

Ruslan180205 3 июн. 2021 г., 11:54:46 | 5 - 9 классы

С клавиатуры вводится двухщначное число ?

С клавиатуры вводится двухщначное число .

Программа выдает его первую и вторуб цифру.

KrytoichelovekGfgfh 18 июн. 2021 г., 01:28:41 | 10 - 11 классы

Помогите по ПаскалюС клавиатуры вводится вещественное число?

Помогите по Паскалю

С клавиатуры вводится вещественное число.

Вывести сумму трёх его первых цифр после десятичной точки.