Ввести предложение из 3 слов и написать аабривиатуру из последних букв слов
Можно ввести любые слова.
Нужно выполнить в visual basic

149

392

Посмотреть ответы 1

Ответы на вопрос:

YuliaLitskevich

Информатика

4,7(7 оценок)

1. var a, s, cifra: integer; begin s: = 0; writeln('введите натуральное число'); readln(a); while a > 0 do begin cifra: = a mod 10; //определяем очередную цифру числа s: = s + cifra * cifra * cifra; //прибавляем к значению s цифру в кубе a: = a div 10; //целочисленное деление числа на 10 (отсекаем текущую цифру) end; writeln('сумма кубов цифр числа: ', s); end. 2. var a: integer; begin writeln('введите натуральное число'); readln(a); while a > 9 do {определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. полученное число и будет первой цифрой} a: = a div 10; writeln('первая цифра числа: ', a); end.