Audi; BMW; Volkswagen; Datsun; KIA
Var x,y:real;
begin
read(x);
y:=1/x;
print(y);
end.
Массив какого размера ? и числа от скольких ? Для языка С подойдет?
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
Int main()
{
int arr[n]={} ; // arr - наш название массива с n елементами , в {} елементы массива.
int i , sum=0; // i нужна для того что бы прокручивать каждый елемент массива ,а Sum это сумма елементов
for (i=0;i<n;i++)
{
sum=sum+arr[i];
}
break
printf("сумма всех елементов массива кратных 7 = %d",sum);
getch();
return 0;
}
Var
n, x: longint;
begin
readln(n);
x := round(sqrt(n));
if x * x = n then
writeln('YES')
else
writeln('NO');
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadInteger2;
if (a mod 4 = 0) or (b mod 4 = 0) then b += 3;
Println(a, b)
end.
<h3>Числа можно ввести оба через пробел или по одному</h3>