N*40 минут (на все уроки) + N*10 минут (перемены)+45 минут (танцы)
Блок-схема - в прилагаемом файле.
var a,b,c,s:real;
begin
writeln('a, b, c:');
readln(a,b,c);
s:=(a+b)/2*sqrt(c*c-sqr(a-b)/4);
writeln('s = ',s:5:3);
end.
Пример:
a, b, c:
5 3 4
s = 15.492
Ответ:
вот ссылка как всё делать
http://pedsovet.su/excel/5883_grafik_funkcii
Объяснение:
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
65536 байт - 64 КБ
1 байт - это 1024 кб
65536 : 1024 = 64 КБ