• Предмет: Информатика
  • Автор: kolyachirkov2019
  • Вопрос задан 7 лет назад

Задано натуральные числа от 10 до N. Для натурального числа найти
первую цифру и сумму его цифр. решить на языке PascalABC.NET

Ответы

Ответ дал: varonapika
0

В вашем условии максимальное число Н. То есть оно может быть как двухзначное так и десяти. Я сделаю для двухзначного:

var a,a1,a2,s:intger;

Read (a);

a1:= a div 10;

a2:= a mod 10;

sum:=  a1+a2;

Writen (a1,sum);

Ответ дал: kolyachirkov2019
0
надо решить через цикл
Ответ дал: varonapika
0
Тут цикл не нужен, т.к. выполняется действител
Похожие вопросы