Результат выводит в виде экспоненты, в обычный формат я не смогла его преобразовать, не хватает знаний.
program AreaOfaCircle;
//Обьявление переменной радиуса, который должен ввести пользователь
var diameter: integer;
//В переменной "area(площадь)" — будет формула его вычисления, произведение числа π на диаметр, но только тип переменной area должен быть "extended"
area: extended;
begin
writeln('Enter the diameter of the circle: ');
readln(diameter);
area := Pi*diameter;
writeln('The area of the circle is: ', area);
end.
У меня в папках где-то этот код запропастился.
Везло, везло, наконец-то нашла задачу для решения которого требуется использоватать Java!
public class primeNumber {
public static void main(String args[]) {
//Обьявление числа, с которого начнётся подчёт простых чисел
int diapazon = 2;
//Число 2 движется к 100, через каждый полный круг увеличивается на единицу
for (; diapazon<=100; diapazon++) {
//Обьявление переменной типа логического, проверяющее "простоту" числа
boolean isPrime = true;
//Под-число "i", обязательно меньшее переменной diapazon, делится на diapazon
for(int i = 2; i<diapazon; i++) {
//Если под-число делится хоть на какую-то цифру кроме себя, то "isPrime" — равно false, и цикл продолжается до тех пор, пока не найдёт простое число
if(diapazon%i == 0) {
isPrime = false;
break;
}
}
//В противном случае — isPrime равно "true"
if(isPrime) {
System.out.println(diapazon);
}
}
}
}
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая заполняет массив из n = 8 элементов случайными числами в диапазоне [0, 10], выводит его на экран, а затем выводит на экран квадраты всех элементов массива. пример: массив: 5 6 2 3 1 4 8 7 квадраты: 25 36 4 9 1 16 64 49 ответ в pascal
===== PascalABC.NET =====
begin
var a := ArrRandom(8, 0, 10);
Write('Массив: ');
a.Println;
Write('Квадраты: ');
a.Select(p -> p * p).Println
end.