:И
:) Ингерманландка
Я по PascalABC. Напишите программу, которая запрашивает число. Если число шестизначное, то найти сумму его цифр.
Напишите программу, которая запрашивает число. Если число шестизначное, то найти сумму его цифр.
Напишите программу, которая запрашивает число. Если число шестизначное, то найти сумму его цифр.
Как-то так:
Program nnn;
var a,s,i :integer;
Begin
Write('Число=');
ReadLn(a);
if (a>=100000) and (a