Регистрация
mashkax28марічка
22.06.2020 22:17
Информатика
Есть ответ 👍

Надо дано трехзначное число (вводится одно число). 1найти число, полученное при прочтении его цифр справа налево. 2в нем зачеркнули первую слева цифру и приписали ее в конце. найти полученное число. 3 в нем зачеркнули последнюю справа цифру и приписали ее в начале. найти полученное число. 4найти число, полученное при перестановке первой и второй цифр заданного числа. 5найти число, полученное при перестановке второй и третьей цифр заданного числа. программа должна ввести 1 число и вывести 6 чисел, каждое на отдельной строке: первые пять чисел ответы на пять вопросов, шестое - сумма предыдущих пяти чисел. например, дано 123, программа должна вывести 321 231 312 213 132 1209 ответ предоставить в виде файла с расширением pas, который содержит текст программы. перед отправкой файла убедитесь, что ваша программа запускается.

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

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

endi5678
endi5678
4,6(46 оценок)
Var a: array [1..8] of integer; i,summ,n: integer; begin randomize; for i: =1 to 8 do begin a[i]: =random(1,10); write(a[i], ' '); end; n: =0; summ: =0; for i: =1 to 8 do if a[i] mod 2=0 then n: =n+1 else summ: =summ+a[i]; writeln(''); writeln('количество четных элементов ',n); writeln('сумма нечетных  ',summ); end.

Популярно: Информатика