x = 29
y = 20
Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
if y <= x then
begin
x := x - 3;
y := y * 2;
end
else
begin
y := y - 3;
x := x * y;
end;
end;
writeln(x,' ', y);
end.
Можно попробовать и без все таблицы:
1. Для ответа на первый вопрос в ячейку H2 введем формулу = СУММ(D2:Dx)
где Dx - адрес последней ячейки, когда перевозили груз 3 октября.
2. Для ответа на второй вопрос в ячейку H3 необходимо ввести формулу =СУММЕСЛИ(B2:B371;"Липки";F2:F371)/СЧЁТЕСЛИ(B2:B371;"Липки").
В первой части формулы записана сумма всех ячеек F, при условии если в ячейках столбца B название "Липки".
Во второй части формулы подсчитываем количество ячеек столбца B с названием "Липки".
Разделив первую часть формулы на вторую получим ответ на второй вопрос.
Что получится в ячейках H2 и Н3 можно будет увидеть введя формулы в реальную таблицу.
Var n,a,b:integer;
function sum(x,y:integer):integer;
var s,i:integer;
begin
s:=0;
for i:=x to y do s:=s+i*i;
sum:=s;
end;
begin
write('n = ');
readln(n);
writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));
write('a, b = ');
readln(a,b);
writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));
end.
Пример:
n = 5
5^2 + 6^2 + ... + 10^2 = 355
a, b = 5 10
5^2 + 6^2 + ... + 10^2 = 355
Загадки:в этом заведении
все перебывали
двоечники,гении
отметки получали
учились здесь артисты
певцы,артиллеристы
сюда хожу и я,
и вы,мои друзья(школа)
что же за предмет такой,
девчонки и мальчишки?
для каждого он-дорогой
что это (записная книжка)
через поле и лесок подается голосок
он бежит по проводам-
скажешь здесь а слышно там (телефон)