Ответ останется неизменным
var
n,m,i:integer;
begin
write('Введие вес мальчика: ');
readln(n);
write('Введите массу конфет (кг): ');
readln(m);
i:=0;
while n+n-5<>m do
begin
i:=i+1;
m:=m-1;
end;
writeln('Детям необходимо сьесть ',i,' кг конфет');
end.
2. Удобнее принсети флеш-накопитель (1). Привод для считывания информации с CD-диска (2) может отсутствовать, оперативная память (3) не предназначена для постоянного хранения информации. Записать на жесткий диск (4) можно, но для переноса информации он не предназначен.
3. 4 Кб = 4 * 1024 = 4096 байт. Следовательно, подойдет документ в формате *.pdf = 4000 байт.
Function S(a,b,c:real):real;
Var
p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b+c)and(b<c+a)and(c<a+b) then WriteLn('S = ',S(a,b,c))
else WriteLn('Треугольник не существует')
End.
Пример:
a = 3
b = 4
c = 5
S = 6
Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.