1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
Begin
var k := 24.0;
var m := k / 3;
k := m / 4 + 2;
m := m + 2 * k;
Println(k, m);
end.
Ответ 4 16
begin
var x := 23;
var y := 12;
y := 3 * x - 4 * y;
var z := 0.0;
if x > y then
z := 3 * x + y
else z := 2 + x * y;
Println(z);
end.
Ответ 90
Композитор может писать музыку на компьютере с помощью предназначенных для этого программ, инженер составлять чертежи и компьютерные модели, повар записывать и искать в интернете рецепты, спортсмен может выполнять необходимые спортивные вычисления на компьютере, например, вычислить длину прыжка, зная свой рост и массу.
Посмотри патчи, проверь драйвера видюхи, если не поможет, посмотри другой репак (если купил лицензию, то стучи производителю, хэх) =)