Для Pascal ABC
uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;
Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.
1)
<span>z = 0
</span><span>считаем количество нечётных элементов массива
</span>15 (нечётное) z = 1
<span>17 </span> (нечётное) z = 2
<span>24</span> (чётное) z = 2<span>
18</span> (чётное) z = 2<span>
13 </span> (нечётное) z = 3<span>
28</span> (чётное) z = 3<span>
18</span> (чётное) z = 3<span>
95</span> (нечётное) z = 4<span>
19 </span> (нечётное) z = 5<span>
17 </span> (нечётное) z = 6
<span>Ответ: 6
2)
</span><span>s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
</span>14 > 24 (нет)
<span>8</span> > 24 (нет)<span>
56</span> > 24 (да) s = 56
12 > 56 (нет)<span>
48</span> > 56 (нет)<span>
25</span> > 56 (нет)<span>
19</span> > 56 (нет)<span>
17</span> > 56 (нет)
Ответ: 56
{
Free Pascal Compiler version 2.6.4+dfsg-8 [2015/08/14] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
}
program X_and_Y;
Var count, n, sum : integer;
begin
writeln('Введите 5 чисел:');
count:=1;
sum:=0;
while count<=5 dobegin
readln(n);
sum := sum+n;
inc(count);
end;
writeln('Сумма равна ', sum);
sum := 0;
for count:=1 to 5 dobegin
readln(n);
inc(sum, n);
end;
writeln('Сумма равна ', sum);
end.
Program pizma;
var a,b,c,v,sp,sb:real;
begin
read(a);
read(b);
read(c);
v:=a*b*c;
sb:=4*с*(a+b);
sp:=2*(a*b+b*c+a*c);
write('объем=',v,' площадьSb='sb,' и SP=',sp);
end.
2.09.1969 — один из «дней рождения Интернета». В лаборатории Калифорнийского университета состоялась первая успешная передача данных между соседними компьютерами.
Обычно именно эта дата имеется ввиду