Мастер,Эксперт!А если честно,то задание не очень понятно:)
Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
Var
T: array [1..5] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to 5 do
begin
write('T[',i,'] = ');
readln(T[i]);
if (T[i] mod 2 = 0) then
sum := sum + T[i];
end;
writeln('Сумма четных элементов = ', sum);
end.
101000₂% = 40₁₀% девочек.
1111₂ = 15₁₀ мальчиков.
Пусть в классе всего n учеников, тогда девочек в нем 0.4n, а мальчиков - остальные 0.6n, что составляет 15 человек.
0.6n=15 ⇒ n=15/0.6 = 25
Ответ: 25 человек
Приготовить тесто
нанести тесто на скавараду
перевернуть блин через несколько секунд
снять блин