begin
var n := ReadInteger;
var s := 0;
var i := 2;
while i <= n do
begin
s := s + i * i;
i := i + 2;
end;
Print(s)
end.
Не следует задавать n > 1000
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
<span><u>1</u>)function test:real; - <u>ВЕРНО</u>
<u>2</u>)function tan (angle:real):real; - <u>ВЕРНО</u>
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой
Программа напечатает:
<u>12</u>
Объяснение:
</span>Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.
Условие попадания точки в полукруг можно записать в виде
#include <iostream>
using namespace std;
int main(){
float x,y,R;
cout<<"Vvedite a,b,R\n";
cin>>x>>y>>R;
if (x>=0 && x*x+y*y<=R*R)
cout<<"\nPopadaet\n";
else
cout<<"\nNe popadaet\n";
}
Тестовое решение:
Vvedite a,b,R
3
5
7
Popadaet
--------------------------------
Process exited after 15.45 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Vvedite a,b,R
4
-2
3
Ne popadaet
--------------------------------
Process exited after 27.79 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Var a:array [1..10, 1..10] of integer;
i, j, max, min, imin, imax, jmin, jmax:integer;
begin
imax:=0; imin:=0; jmax:=0; jmin:=0;
max:=-maxint; min:=maxint;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(89)+10;
write(a[i,j],' ');
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
end;
writeln;
end;
writeln;
writeln('Максимальный элемент:',max);
writeln('Его индекс ',imax,' ',jmax);
writeln('Минимальный элемент:',min);
writeln('Его индекс ',imin,' ',jmin);
end.