Регистрация
Тупой2111
02.03.2023 18:16
Информатика
Есть ответ 👍

Напишите программы.
1. Дано двузначное число. Найти:
а) число десятков в нем;
б) число единиц в нем;
в) сумму его цифр;
г) произведение его цифр.
2. Даны вещественные числа a, b, c (a 0). Выяснить, имеет ли уравнение ax2 + bx + c = 0 вещественные корни.
3. Определить максимальное и минимальное значения из трех различных вещественных чисел.
4. Вывести "столбиком" следующие числа: 2,1, 2,2, 2,3, ..., 2,8. (Используйте цикл с условием).
5. Напечатать минимальное число, большее 200, которое нацело делится на 17. (Используйте цикл с переменной).
6. Массив из 30 элементов заполняется с клавиатуры. Выяснить:
а) верно ли, что сумма элементов массива есть четное число;
б) верно ли, что сумма квадратов элементов массива есть пятизначное число.

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

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

daniil326
daniil326
4,8(43 оценок)

PascalABC.NET 3.5.1

begin

 var a := ReadString().ToCharArray.ToList; //Читаем с консоли число как строку, разбиваем на массив символов и приводим к типу List<T> для удобства работы

 var fnum := a[0];  //Запишем в переменную fnum первый элемент получившегося списка цифр нашего числа (то бишь первую слева цифру)

 a.Remove(fnum);  //Удалим из этого списка эту цифру

 a.AddRange(Seq(fnum, fnum));  //Добавим в конец нашего списка цифр эту самую последнюю цифру два раза

 a.JoinIntoString.Println; //Соберём элементы нашего списка в строку и выведем на печать

end.

Объяснение:

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