Var x,y:longint;
Begin
Readln(x);
Y:=y-2*x;
Writeln(y);
End.
Решение на фото. Суть алгоритма в том, чтобы ввести новые переменные, отвечающие за минимум и максимум в ряду чисел. Логично, что число посередине равно сумме всех чисел минус минимум и максимум, его нужно записывать до остальных чисел.
var i, a:longint;
begin
read(a);
for i:=1 to 1000 do
if (100 <= a * i) and (a * i <= 999) then
write(a * i, ' ')
end.
{$N+} (*Enable 287 soprocessor*)
var i:longint;
a:extended;
begin
read(a);
for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);
end.
Масло не знаю.Кот- кто,тик-кит,нос- сон,кара-?. Лето - тело,атлас-салат,кукла- кулак,марка -рамка,соринка-?
Алфавит 64 = 2^6 - т.е. 6 бит каждый символ
v = 12 * 16 * 52 * 6 = 59904 бит / 8 = 7488 байт / 1024 = 7,3125 Кбайт