// PascalABC.NET 3.3
begin
var x:=ReadInteger;
writeln((1+x)*x div 2);
end.
Пример:
6
21
Var
input, output : text;
A, B : integer;
begin
assign(input, 'input.txt'); //Ассоциируем переменные с файлами
assign(output, 'output.txt');
reset(input); //Открываем файл для чтения
rewrite(output); //Открываем файл для записи
readln(input, A);
readln(input, B);
writeln(output, A + B);
close(input); //Закрываем файлы
close(output);
end.
Решение можно получить, рассуждая следующим образом.
Максимальное количество возможных сложений равно количеству команд и это дает в результате 1+1+1+1+1+1=6, но никак не 45. Разница большая, поэтому её надо преодолевать пр помощи умножения.
Пойдем от обратных операций - будем из 45 получать 1 путем деления на 3 и вычитания 1.
1) 45/3=15 2) 15/3=5 3) 5 на 3 не делится, вычитаем 1 и получаем 4. 4) 4 на 3 не делится, вычитаем 1 и получаем 3. 5) 3/3=1 - мы пришли к 1 за 5 команд.
Теперь осталось записать в обратном порядке команды калькулятора.
Мы должны получить следующие шаги: 1) 1х3=3 2) 3+1=4 3) 4+1=5 4)5х3=15 5) 15х3=15.
Ответ: 21122
Ответ:
Вот, вроде работает:
Объяснение:
a = int(input("Сколько дней заниматься математикой?"))
b = int(input("Сколько дней заниматься информатикой?"))
c = int(input("Сколько чашек чая выпивать, когда занимаешься математикой?"))
d = int(input("Сколько чашек чая выпивать, когда занимаешься информатикой?"))
n = int(input("Сколько недель будешь заниматься?"))
chashka = 0
n = n*7
while n > 0:
chashka = chashka + c * a
n = n - a
chashka = chashka + d * b
n = n - b
print(chashka, "чашек чая")
Ответ:
Длина сообщения - 20 символов
Объяснение:
Пусть длина сообщения - x символов, тогда в начале файл весил 16x бит, а стал весить 8x бит. Известно, что файл стал весить меньше на 20 байт(160 бит). Составим и решим уравнение:
![16x - 8x = 160 \\ x = 20](https://tex.z-dn.net/?f=16x+-+8x+%3D+160+%5C%5C+x+%3D+20)