Var I,S: integer;
Begin
S:=0;
for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }
S:=S+sqr(I); {sqr(I)- квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}
writeln('сумма квадратов цифр = ',S); {выводим сумму}
<span>end.</span>
Системы с общей памятью, разделяемой всеми процессорами называются: SMP
Таблицей:
Маша Полина Валя
Галузина - + -
Юсупова + - -
Сидорова - - +
Объяснение:Маша не Галузина - ставим -, Валя в 8 классе а Галузина в 7 - значит Валя не Галузина, остаётся что Галузина - Полина, мама Вали домохозяйка, а мама Юсуповой работает в банке, значит Валя не Юсупова, значит Валя Сидорова, и остаётся что Маша Юсупова.
//Общее сопротивление сети:
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);<span>
end.</span>
Тут подбором наверное нужно решать. Просто переводим в другие системы, пока не получится то, что просят (100). Чтобы не делать тут длинные лишние записи, я напишу сразу то, что должно получаться.
Если тебе обязательно нужно по очереди все перебрать - перебирай.
49 в семиричную
49:7=7 (0)
7:7=1(0)
Записываем снизу вверх:
100 - то, что и просили.
В семеричной системе счисление основание 7 (потому она и семеричная)
Ответ: 7