Обобщение понятий-это <u>мысленное действие</u>,нескольких понятий в одном понятии.
Var
Date: string;
year:integer;
begin
readln(Date);
Delete(Date, 1, Pos('.', Date));
Delete(Date, 1, Pos('.', Date));
year:=StrToInt(Date);
writeln(2015-year);
end.
JAVA
int score = 0;
for(int i = 0; i < arr.length(); i++){
if ((arr[i] % 2) == 1){score++};};
C++
arr.length заменить на sizeof(arr)
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.
</span>Это реализовано с помощью цикла while:<span>
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
</span>Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.</span>
Примерно 11272192 Мб . И кто такие тупые задачи делает?