Program Pr1;
uses crt;
const n=100;
m=100;
var mas:array[1..n,1..m] of integer;
i,j,l,k,v:integer;
Begin
clrscr;
for j:=1 to m do
for i:=1 to n do begin
randomize;
mas[i,j]:=random(100);
end;
l:=0;v:=0;
for j:=1 to m do
for i:=1 to n do begin
k:=1;
while k<=m do if k=m then k:=k+1
else begin
l:=mas[i,k]+l;
k:=k+1;
end;
if mas[i,j]>l then v:=v+1;
l:=0;
end;
writeln(v);
end.
Program z1; Var a,b,c,d,e,f,s:string;Begin write('Введите название животного - '); readln(s); writeln; a:='кошка'; b:='собака'; c:='птица'; d:='мышь'; e:='лиса'; f:='волк'; if (s=a) then writeln(s,' - cat') else if (s=b) then writeln(s,' - dog') else if (s=c) then writeln(s,' - bird') else if (s=d) then writeln(s,' - mouse') else if (s=e) then writeln(s,' - fox') else if (s=f) then writeln(s,' - wolf') else writeln('Таких животных в базе нету'); <span>End.</span>
1. С:\Физика\Задачи\Механика
2. С:\Физика\Задачи
3. С:\Физика
4. С:\Физика\Экзамен\Вопросы.doc
Путь: С:\Физика\Экзамен\Вопросы.doc
Все что знаю
475: (в 8й )=100111101 (в 2й)
457: (В 8й)= 10010111
А в 10й , так и будет 457,475)))
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