Задача 1. Дано трехзначное число. Отыскать и вывести сумму его цифр.

Задача 1. Дано трехзначное число. Найти и вывести сумму его цифр. Составить программу Paskal .
Задачка 2. Дано целое число. Отыскать число его 10-ов. К примеру, у числа 326 ответом будет 2, так как 2 десятка. Составить программку Paskal.Помогите пожалуйста...

Задать свой вопрос
1 ответ
Задачка 1:
program z1;
var a,b,c,sum : integer;
begin
read (a);
b:=a mod 10;
c:= a mod 100;
c:= c div 10;
a:=a div 100;
sum:= a+b+c;
writeln (sum);
end.

Задачка 2:
program z2;
var a: integer;
begin
read (a);
a:=a mod 100;
a:= a div 10;
writeln (a);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт