var
n, i: Integer;
s: string;
begin
Write ('Введите число: ');
Read (n);
WriteLn;
s := IntToStr (n);
WriteLn ('Число содержит ', Length (s), ' цифр.');
for i := 1 to Length (s) do begin
if StrToInt (s [i]) in [2, 3, 5, 7] then
WriteLn (s [i], ' - простое число');
end;
end.
Ни чего не сотрется. Я точно знаю.
Задача 1)
//PascalABC.NET
begin
writeln('Введите через пробел три числа');
var a := ReadArrInteger(3);
write('Разность большего и меньшего равна ');
writeln( a.Max - a.Min )
end.
Задача 2)
//PascalABC.NET
var
y : array of real;
begin
// Запрашиваем область определений
write('Введите a: ');
var a := ReadlnReal();
write('Введите b: ');
var b := ReadlnReal();
write('Введите k: ');
var k := ReadlnReal();
// Резервируем массив для значений функции
y := new real[Round((b - a) / k) + 1];
// Заполняем массив данными
for var i := 0 to Round((b - a) / k) do
begin
y[i] := Exp(a) - Sin(a) * Cos(a);
// Следующее значение
a += k
end;
// Выводим массив на экран
foreach var i in y do
writeln(i:8:3)
end.
Результаты в приложениях
Ребятки, думаю в моём массиве, но не из 15 элементов, а из 55.
У меня может не выдержать крыша, потечет.
===== PascalABC.NET =====
begin
var a:= ArrRandom(30, -99, 99);
Sort(a);
a.Println;
Println('Количество различных чисел:', a.Distinct.Count)
end.
На самом деле в этом решении упорядоченность в массиве значения не имеет, что можно проверить, удалив или закомментировав строку с Sort(a);