Результат выводит в виде экспоненты, в обычный формат я не смогла его преобразовать, не хватает знаний.
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);
}
}
}
}
//1
Var
ar:array[1..5] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to 5 do
begin
ar[i]:=random(5,37);
writeln(ar[i]);
s:=s+ar[i];
end;
writeln('Sum=',s);
end.
//2
Var
ar:array[1..20] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to 20 do
begin
ar[i]:=random(-77,123);
writeln(ar[i]);
if ar[i] mod 2<>0 then s:=s+1;
end;
writeln('Count=',s);
end.
//3
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
writeln('Array:');
for i:=1 to 5 do
begin
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/5;
writeln('Res=',r);
end.